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1.0  MAGNETIC  TAPE  FORMAT 


NSMS  Data  Acquisition  System  -  Tape  Format 


Fixed  length  -  512  byte  records 
block  0 


bytes  0 . .  3 
bytes  4 . .  7 
bytes  8 . .  11 
bytes  12 . .  15 
bytes  15..  19 
bytes  20..  23 
bytes  24.. 127 
bytes  128.. 13 6 
bytes  137.. 141 
bytes  142 . . 149 
bytes  150.. 165 
bytes  166.. 245 
bytes  246.. 261 
bytes  262.. 421 
bytes  422.. 437 
bytes  438.. 511 


nb  =  number  of  blades 

nr  =  number  of  revolutions 

ns  -  number  of  stations 

average  speed 

minimum  speed 

maximum  speed 

unused 

run  date  (DD-MMM-YY) 
excitation  frequency 
run  time  (HH:MM:SS) 
radius 

run  description 
run  id 

specimen  description 
specimen  id 
unused 


nbrd  =  number  blocks  for  rev  data  *  int((nr  +  127)/128) 
nbbd  *  number  blocks  for  blade  data  =  int( (nr*nb+127)/128) 


block  1 . . nbrd 

bytes  0 . . 3  :  rev  1  time  for  station  1 
bytes  4 . . 7  :  rev  2  time  for  station  1 


block  nbrd+1. .nbrd+nbbd 

bytes  0..3  :  rev  1  blade  1  time  for  station  1 

bytes  4 . . 7  :  rev  1  blade  2  time  for  station  1 

• 

• 

bytes  nb*4-4 .  .nb*4-l  :  rev  1  blade  nb  time  for  station  1 
bytes  nb*4..nb*4+l  :  rev  2  blade  1  time  for  station  1  . 


repeat  from  block  1  for  station  2,  3  and  4 
tape  mark 
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2.0  COMPILATION  CONTROL  FILES 


2.1  roB.com 

* - - - 

run  c:tnk 

-dbOxIOOO  -eb_«waory  -ed_edata  -et _ etext  -i  -ov»:ra»  -tbOxfOOOOO  <A1.l 

2.2  call. COB 

* - - - 

c68k  bdos 
c68k  bios 
c68k  change 
c68k  cmdlx 
c68k  disabl 
c68k  enable 
c68k  extern 
c68k  getdat 
c68k  get l 
c68k  getti* 
c68k  histin 
c68k  histog 
c68k  histpl 
c68k  initpo 
c68k  intlx 
c68k  putc 
c68k  put l 
c68k  query 
c68k  query) 
c68k  query l 
c68k  querys 
c68k  queryt 
c68k  realti 
c68k  rtinit 
c68k  rtplot 
c68k  scrnin 
c68k  setdat 
c68k  settim 
c68k  setup 
c6flk  strlx 
c68k  takeda 
c68k  tape in 
c68k  tapeur 
c68k  title 
c68k  turbin 
c68k  tufm 
c68k  update 
c68k  writed 
c68k  xylx 

2 . 3  aall . com 

* - 

a68k  clockr 
a68k  clockw 
a6flk  cpm 
a68k  revers 
a68k  risr 
a68k  scsi 

2.4  turbin. 1 

* - 

vm:cpm.o 

vmrbdos.o 

vm:bios.o 

vm: change. o 

vm:clockr.o 

vm:clockw.o 

vmtcmdlx.o 

vm:disabl.o 

vi»:enable.o 

v»:extern.o 

vwtgetdat.o 

vmsgetl.o 


vn:getti».o 

*a:hi*tin.o 

v»:histog.o 

v»:hi*tpl.o 

v»:initpo.o 

va:int1x.o 

v»:putc.o 

vw:putl.o 

v«:query.o 

v»:queryi.o 

v»:queryl.o 

v*:querys.o 

v»:queryt.o 

v»:realti.o 

v»:revers.o 

vwrrisr.o 

v»:rtinit.o 

v»:rtplot.o 

v»:scrnin.o 

vM:scsi.o 

vacsetdat.o 

vm:settin.o 

via:setup.o 

vm:str1x.o 

vm:takeda.o 

vm:tapein.o 

v»:tapewr.o 

vw:title.o 

vw:turbin.o 

vactwfm.o 

vm:update.o 

vm:urited.o 

vwrxylx.o 

c:  lbucp».68k 

c:lbpcpm.68k 


2.5  rom.con 

* - 

run  c:lnk 

-dbOxIOOO  -eb_memory  -ed_edata  -et _ etext  -i  -tbOxfOOOOO  - tf 5  <*1.l 

run  c:hex 
-111*1  -s  >A1.ro« 


2.6  aall.con 

* - - — - - — - - - - * 

run  c:as68k  a.s 
run  c:as68k  bladei.s 
run  c:as68k  badcom.s 
run  c:as68k  badexc.s 
run  c:as68k  dispat.s 
run  c:as68k  getl.s 
run  c:as68k  get2.s 
run  c:as68k  get3.s 
run  c:as68k  get4.s 
run  c:as68k  getn.s 
run  c:as68k  histog.s 
run  c:as68k  minmax.s 
run  c:as68k  putl.s 
run  c:as68k  putn.* 
run  c:as68k  realti.s 
run  c:a»68k  receiv.* 
run  c:as68k  requests 
run  c:as68k  send.* 
run  c:as68k  setup. s 
run  c:as68k  slave. s 
run  c:as68k  vOAini.s 
run  c:as68k  v06ini.s 

2.7  slave. 1 

* . . . . . . .......... _ _ _ .... _ * 

a.o 

bade  om. o 
badexc.o 
bladei .o 
dispat. o 
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getl.o 

get2.o 

get 3.0 

geti.o 

getn.o 

histog.o 

MinMx.o 

putl.o 

putn.o 

realti.o 

receiv.o 

reques.o 

send.o 

setup. o 

slave. o 

v04lni.o 

v06ini.o 


3.0  MASTER  PROGRAM  SOFTWARE  LISTINGS 


3.1  clockr.s 


.text 

*  write  *  pc2 

*  reed  *  pci 

*  hold  *  pcO 

*  a3:a0  *  pb7:pb4 

*  d3:d0  *  pb3:pb0 

clock*  0xfe0200 
pgcr*  0+0+1 
pbddr*  3+3+1 
pcddr*  4+4+1 
pbcr*  7+7+1 
pbdr*  9+9+1 
pbar*  11+11+1 
pcdr*  12+12+1 

HOLD*  0 
READ*  1 
WRITE*  2 

.globl  _clock_r 

_clock  r: 

“lee  clock, eO 

move.b  #0x0.  ,pcddr(a0) 

move.b  #0x01  ,pcdr(a0) 

move.b  #0xf0,pbddr(a0) 

*  delay  ISO  micro  seconds 
move.u  #150, dO 

1:  dbf  d0,1b 

move.b  #0x03,pcdr(a0) 
move. I  4(sp),a1 
clr.b  dl 

2:  move.b  d1,pbdr(a0) 

*  delay  6  micro  seconds 

move.u  #6,d0 

3:  dbf  d0,3b 

move.b  pbar(aO),dO 
and.b  #0x000f,d0 
move.b  dO, (a1)+ 
add.b  #0x10, dl 
cnp.b  #0xc0,d1 
bls.s  2b 

move.b  #0x00,pcdr(a0) 
rts 


3.2  clockv.s 


.text 

write  *  pc2 
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*  retd  *  pci 

*  hold  *  pcO 

*  a3:a0  *  pb7:pU 

*  d3;d0  *  pb3:pb0 

clock*  0xfe0200 
pgcr*  O+O+l 
pbddr*  3+3+1 
pcddr*  4+4+1 
pfccr*  7+7+1 
pbdr*  9+9+1 
pbar*  11+11+1 
pcdr*  12+12+1 

HOLD*  0 
READ*  1 
WRITE*  2 

.globl  _clock_w 

_clock  w: 

"lea  clock,  aO 

move.b  #0x07,  pcddr  (aO) 

move.b  #0x01  ,pcdr(aO) 

move.b  #0xff ,  pbddr  (aO) 

*  delay  150  micro  seconds 

move.w  #150, dO 

1:  dbf  d0,1b 

move. I  4(sp),a1 
clr.b  dl 

2:  move.b  (a1)+,d0 

and.b  #0x000f,d0 
or.b  d1,d0 
move.b  dO.pbdr(aO) 
nop 
nop 

move.b  #0x05,  pcdr  (aO) 

nop 

nop 

nop 

nop 

move.b  #0x01,pcdr(a0) 
nop 

add.b  #0x10, dl 
cmp.b  #0xc0,d1 
bts.s  2b 

move.b  #0x00, pcdr (aO) 
move.b  #0x00,pbddr(a0) 
rts 
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3.3  cpa.a 


.globl _ edata 

.globl _ Itor 

.globl _ Min 

.globl  _memcry 

.globl _ rtol 

.globl _ setint 

•  globl  _svc 
.globl  _epm 
.globl  “exit 

.text 

AmZ8536*OxfeOOOO 
A«28530=0xfe0500 
ac=  2+1 

ad*  6+1 

bc=  0+1 

bd=  4+1 

1:  .long  0x1000 

.long  2f 

2:  move. I  1b,sp 

*  clear  memory  ■  takes  about  1  second 

*  we  can't  do  this  In  a  subroutine  because  the  return  address  would 

*  be  cleared  also 

lea  0x000000,a0 
move.w  #8-1, dl 

move. w  #65536-8192- 1,d0  *  clear  2  H  -  8  K 

4:  clr.l  (a0)+ 

dbf  d0,4b 
dbf  d1,4b 

*  setup  configuration  port 
lea  AmZ8536,aO 
move.b  7(a0),d0 

nop 

nop 

move.b  #0,7(a0) 

nop 

nop 

move.b  7(a0),d0 
lea  table, al 
move.w  #tablesize-1,d0 
5:  move.b  (a1)+,7(a0) 

dbf  dO, 5b 

*  copy  data  from  prom  to  ram 

*  get  where  data  segment  should  be  (above  stack) 
move. I  sp,a0 

*  compute  size  of  data  segment 
move. I  #  edata.dO 

sub.  I  afl7<J0 
beq  7f 

*  get  start  of  where  data  segment  is  (end  of  text  segment) 
lea  etext.al 

subq.u  IT,d0 

6:  move.b  (a1)+,(a0)+ 

dbf  dC,6b 


*  setup  all  vectors  to  point  to  bad  exception 

lea  0x000004, aO 

lea  bed  exceptional 
move.w  #25S-1-1,d0 
8:  move. I  a1,(a0)+ 

dbf  d0,8b 

*  setup  serial  port 
lea  AmZ8530+ac,a0 

tst.b  (aO)  *  make  sure  we  will  access  RO  on  next  write 

nop  *  0.4  microseconds 
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nop  *  0.4  microseconds 

nop  *  0.4  microseconds 

nop  *  0.4  microseconds 

move.b  #OxcO,(aO)  *  reset  8530 

tee  sptable,a1  *  1.2  microseconds 

move.*  #*ptsize-1,d1  *  0.8  microseconds 

9:  nop  *  0.4  microseconds 

nop  *  0.4  microseconds 

move.b  <a1)«-,(a0) 

dbf  d1,9b  *  1.0  microsecond 

mtsr  #0x2000 
jsr  mein 
move. I  37,-<sp) 
jsr  exit 

trap  ?15 
.word  0 
bra  2b 

_ l tor:  move. I  4(sp),a0 

move. I  8(sp),s1 
add. I  #1,a1 
move.b (a1)*,(a0)+ 
move.b  (ali+jtaO)* 
move.b  (a1),(a0) 
rts 

_ rtol:  move. I  4(sp),a0 

move. I  8(sp),a1 
move.b  #0,<a0)* 
move.b  (a1)+,(e0)+ 
move.b  <a1)+,(a0)+ 
move.b  <a1),(a0) 
rts 

_ setint: 

rts 


_cpm:  move.  I  4(sp),d0 
move. I  8(sp),d1 

movem.l  d2/d6/a0-a2,-(sp) 

move. I  d1,-(sp) 

move. I  d0,-(sp) 

jsr  bdos 

addq.  I  i8,sp 

movem. I  ( sp)+ , d2/d6/a0- a2 

rts 

bad_exception: 

bset  #3,AmZ8536+3  *  turn  on  FAIL  led 
rte 

sptable:.byte4,0x44  *  x16  clock,  1  stop  bit,  no  parity 

.byte  3,0xc0  *  Rx*8  bits,  Rx  disabled 

.byte  5,0x62  *  Tx*8  bits,  DTR=0,  RTS=1,  Tx  disabled 

.byte  9,0x00  *  Int.  Disabled 

.byte  10,0x00  *  NRZ 

.byte  11,0x56  *  RxOBRG,  TxC=BRG,  TRxC  Out=BRG 

.byte  1 2, 0x0b, 13,0x00  *  8RG  Time  Constant  (9600  baud) 

.byte  14,0x62  *  Disable  DPLL,  BRG  Souree=PCLK,  BRG  disabled 

.byte  14,0x63  *  Disable  DPLL,  BRG  Souree=PCLK,  BRG  enabled 

.byte  3,0xc1  *  Rx=8  bits,  Rx  enabled 

.byte  5,0x68  *  Tx=8  bits,  DTR=0,  RTS=1,  Tx  enabled 

sptsize«.-sptable 

table:  .byte  0,1,0 

.byte  0x05,0x00  *  Port  C  Data  Path  Polarity 

.byte  0x06, OxOe  *  Port  C  Deta  Direction 

.byte  0x07,0x00  *  Port  C  Special  I/O  Control 

.byte  0x08,0x00  *  Port  A  Conmand  and  Status 

.byte  0x09,0x00  *  Port  B  Command  and  Status 

.byte  0x20,0x00  *  Port  A  Mode  Specification 

.byte  0x21,0x00  *  Port  A  Handshake  Specification 

.byte  0x22,0x00  *  Port  A  Data  Path  Polarity 

.byte  0x23,0x08  *  Port  A  Data  Direction 

.byte  0x24,0x00  *  Port  A  Special  I/O  Control 

.byte  0x28,0x00  *  Port  B  Mode  Specification 
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.byte 

0x29,0x00 

*  Port  3  Handshake  Specification 

.byte 

0x2a,0x00 

*  Port  8  Data  Path  Polarity 

.byte 

0x2b,0xb0 

*  Port  8  Data  Direction 

.byte 

0x2c,0x00 

*  Port  8  Special  I/O  Control 

.byte 

0x1e,0x95 

*  Counter/Timer  3  Node  Specification 

.byte 

0x0d,0x«e 

*  Port  A  Data  PA7 

NNIEN*  * 

1 

*  PA6 

RAMC0  = 

1 

*  PAS 

HAPR0*  * 

1 

*  PA4 

UAIT0  = 

0 

*  PA3 

PR0N3  = 

1 

*  PA2 

PROM2  = 

1 

*  PA1 

PR0H1  = 

1 

*  PA0 

PROHO  = 

0 

.byte 

0x0e,0x47 

*  Port  8  DataPB7 

HALT* 

s 

? 

*  PB6 

RESDIS* 

s 

1 

*  PB5 

RESERVED 

* 

? 

*  PB4 

SYSFAIL* 

s 

? 

*  PB3 

FAIL 

= 

0 

*  PB2 

RELES 

= 

1 

■'  PB'i 

BUSL1 

= 

1 

*  PB0 

BUSLO 

s 

1 

•  byte 

OxOf.Oxee 

*  Port  C  DataPC3 

CONTI 

5 

7 

*  PC2 

DS 

= 

7 

*  PCI 

CONTLR 

= 

7 

*  PC0 

TIMOUT 

= 

1 

.byte 

0x01,0x94 

tablesizes 

.-table 

3.4  rovers. s 

.text 
•  even 

_reverse: 

movem.l  d0-d1/a0,-(sp) 

move. I  16(sp),a0 

move.  I  20(sp),d1 

tst.w  dl 

beq  2f 

subq.w  #1,d1 

1:  move. I  (aO),dO 

rot.M  #8,d0 
swap  dO 
rol.w  #8,dQ 
move. I  dO,(aO)+ 
dbf  d1,1b 

2:  movem. I  (sp)+,d0-d1/a0 

rts 

.globl  _reverse 

3.5  risr.a 

* - * 

* 

*  r  isr 

• 

*  This  interrupt  service  routine  handles  the  rev  interrupts 

*  At  6000  RPN  (100  RPS)  rev  interrupts  will  occur 

*  approximately  every  9936  microseconds. 

* 

gm6v04=  OxfffOOO 


port2=  0x0041 
port3=  0x0081 
debug=  0x0101 

pbcr=  OxOe 
padrs  0x10 
pbdr=  0x12 
pcdr=  0x18 

*  offsets  in  op6tat 
data_avai 1=  0 

data~written*  1 
taking_data*  2 
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.globl  _rd_end,_rd _ptr 
.globl  _P_i*r 


r  isr: 


32 


16 


.1  d0/a0-a1,-($p) 

1m  gmav04,a0  *  12 

move.b  port3+pbdr(a0),d0  *  12 

andi.w #0x000f,d0  *  8 

swap  dO  *  4 

movep.w  port2+padr(aO),dO 

move.  I  rd_ptr,a1  *  16 

move.l  30,(a1)+  *  8 

move.  I  a1,_rd  ptr  *  16 

cmp.l  rd~ena,a1  *  22 

blo.s  Tf  ~  *  10 

bcs.s  If  *  10 

clear  interrupt  enable 
bclr  #1,port2+pbcr(a0) 

if  we  were  talcing  data,  tell  program  data  is  available 
move.b  _opstat+taking_data,_opstat+data_avai  l 
clr.b  ~opetat+taking~data 


1: 


mo  vein.  I 
rte 


(sp)+,d0/a0-a1 


interrupt  processing  time 
total  interrupt  service  time 

3.6  scsi.s 

* - 

SCSI*  OXFE0300 


24 

216 

46 


36 


262  cycles  =>  26.2  microseconds 


Current_Data*  0+0+1 

Output  Data*  0+0+1 

lnitiator_Coim»end*  1+1+1 

Mode*  ”  2+2+1 

Target  Command* 

Currerc  But  Status*  4+4+1 

Select  Enable* 

Bus  and  Status* 

Start_DMA_Send* 

Input_Oata*  6+6+1 

Start~DHA^Target_Receive*  6+6+1 
ResetParTty^Interrupts*  7+7+1 
Start_0MA_ln7tiator_Receive= 

BSY-*  6 
REQ-*  5 
MSG-*  4 
C  D-=  3 
TO-*  2 

PHASE_MATCH«  3 

ASSERT  ACK-*  4 
ASSERT"SEL-«  2 
ASSERT~DATA  BUS*0 


3+3+1 

4+4+1 

5+5+1 

5+5+1 


7+7+1 


.globl  scsi  in 


* 


scsi_in(phase,  buffer,  length); 
scsi  in: 

"lea  SCSI.aO 

'  4(sp)  *  phase 

8(sp)  ->  buffer 
12(sp)  *  length 

'  copy  arguments  to  registers 
move.b  7(sp),d0 
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move. I  8(sp),»1 
move. I  12(sp),d1 

move.b  dO,Target_Co«mmod(aO) 

ctr.b  dO 

1:  btst  BPHASE_NATCH,Bus_ar>d_Status(aG) 

beq.s  1b 

2:  btst  BREQ~,Current_Bus_Status<aO) 

beq.s  2b 

move.b  Current_Data(aO),(a1)'*- 

bset  #ASSERT^ACK',dO 
move.b  dO,Init?stor_Cofflmend(aO) 

3:  btst  BREQ-, Current  Bus  Status(aO) 

bne.a  3b 

bclr  BASSERT^ACK-.oO 
move.b  dO,  Init7ator_Command(aO) 

subq.l  B1,d1 

bne.s  1b 

rts 

.globl  _scsi_out 


*  scsi_out(phase,  buffer,  length); 

_scsi_out: 

-  lea  SCSl.aO 

*  4(sp)  »  phase 

*  8(sp)  ->  buffer 

*  12(sp)  *  length 

* 

*  copy  arguments  to  registers 

move.b  7(sp),d0 
move. I  8(sp),a1 
move. I  12(sp),d1 

move.b  dO,Target_Command(aO) 

clr.b  dO 

bset  BASSERT^DAT  A_BUS , dO 

move.b  dO.InitTator~Co«m»nd(aO) 

1;  btst  BPHASE_MATCH,Bus_and_Status(aO) 

beq.s  1b 

2:  btst  BREQ-, Current  Bus  Status(aO) 

beq.s  2b 

move.b  (a1)+,Current_Data(aO) 

bset  BASSERTJICK- , dO 

move.b  dO,  Ini  tTator_Commend(aO) 

3:  btst  BREQ-,Current_Bus_Status(aO) 

bne.s  3b 

bclr  BASSERT  ACK-,dO 
move.b  dO,  lnitTator_Command(aO) 

subq.l  B1,d1 

bne.s  1b 

bclr  BASSERM)ATA_BUS,dO 
move.b  dO,lnitTator_Coinnand(aO) 
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rt* 

.glob l  _tcti_ttl 


* 

*  sc*i  tel (device) 

*  ■ 


scsi  sel: 

“  lea  SCSI.aO 

move.w  0xfffe,d7 

1:  btst  #BSY-,Current_Bus_$tatus(aO) 

dbeq  d7,1b 

CMp.M  #-1 ,67 
beq.s  3f 

clr.b  Target_Cos*and<aO) 
move.b  7(3p),Output_Data<aO) 
clr.b  dO 

bset  #ASScRT^0ATA_8US,d0 
move.b  dO,lnitTator_Comaand(aO) 

bset  #AS$ERT^SEL-,dO 
move.b  dO,  Ini  tTator_Comaand(aO) 

move.w  #0xfffe,d7 

2:  btst  #BSY~, Current  Bus  Status(aO) 

dbne  d7,2b  “  " 

bclr  #ASSERT  SEL-jdO 
move.b  dO,  InitTator_Command(aO) 

bclr  BASSERT  OATA_BUS,dO 
move.b  dO,  InitTatnr_Command(aC) 

3:  addq.l  #1fd7 

beq.s  4f 

moveq.l  #1,d7 
4:  rts 

3.7  5380. h 

* - - - - - * 

struct  NCR5380  { 

unsigned  char  00; 

unsigned  char  CurrentData; 

unsigned  char  02; 

unsigned  char  TnitiatorCoamand; 

unsigned  char  _04; 

unsigned  char  Node; 

unsigned  char  06; 

unsigned  char  TargetCoamand; 

unsigned  char  08; 

unsigned  char  CurrentBusStatus; 

unsigned  char  _0a; 

unsigned  char  ~0b; 

unsigned  char  ~0c; 

unsigned  char  ~0d; 

unsigned  char  ~0e; 

unsigned  char  "Of; 

>; 

/*  current  bus  status  register  */ 

#def ine  SEL  0x02 

/*  mode  register  */ 

#def ine  TARGET_N00E  0x40 

/*  target  conwand  register  */ 

#def ine  DATA  OUT  0 
#def ine  DATA~IM  1 
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•define  COMMAND  2 
•define  STATUS  3 
•define  MESSAGE! N  7 

3.8  68153. h 


struct  NC68153  { 

unsigned  char  _00; 
unsigned  char  cr  0 
unsigned  char  _0?; 
unsigned  char  cr  1 
unsigned  char  _0l; 
unsigned  char  cr  2 
unsigned  char  _0S; 
unsigned  char  cr  3 
unsigned  char  _08; 
unsigned  char  vr_0 
unsigned  char  _Oa; 
unsigned  char  vr_1 
unsigned  char  _0c; 
unsigned  char  vr_2 
unsigned  char  _Oe; 
unsigned  char  vr  3 

>; 

3.9  68230. h 


•ifndef  HC68230 


•define  _MC68230 

struct  MC68230  { 

unsigned  char  00; 
unsigned  char  pgcr; 
unsigned  char  _02; 
unsigned  char  psrr; 
unsigned  char  _04; 
unsigned  char  paddr; 
unsigned  char  _06; 
unsigned  char  pbddr; 
unsigned  char  08; 
unsigned  char  pcddr; 
unsigned  char  _0a; 
unsigned  char  pivr; 
unsigned  char  _0c; 
unsigned  char  pacr; 
unsigned  char  _0e; 
unsigned  char  pbcr; 
unsigned  char  _10; 
unsigned  char  padr; 
unsigned  char  _t2; 
unsigned  char  pbdr; 
unsigned  char  _14; 
unsigned  char  paar; 
unsigned  char  _16; 
unsigned  char  pbar; 
unsigned  char  _18; 
unsigned  char  pcdr; 
unsigned  char  _1a; 
unsigned  char  par; 
unsigned  char  _1c 151 ; 
unsigned  char  ter; 
unsigned  char  _22; 
unsigned  char  tivr; 
unsigned  char  _24t33; 
unsigned  char  cpr_h; 
unsigned  char  _28j 
unsigned  char  cpr_m; 
unsigned  char  _2aJ 
unsigned  char  cpr  l; 
unsigned  char  _2cT33; 
unsigned  char  cr  h; 
unsigned  char  _35; 
unsigned  char  cr  m; 
unsigned  char  32; 
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unsigned  char  cr  l; 
unsigned  char  3l; 
unsigned  char  tar; 
ineigned  char  36(10]; 

>; 


#endif 

3.10  68450. b 

* - - - - - * 

struct  HC68450  < 

unsigned  char  00(0x40]; 

>; 


3.11  68881. b 

* - - - * 

fifndef  _MC68881 

ddefine  _MC68881 

struct  MC68881  { 

unsigned  short  0(81; 

>; 


#endif 


3.12  8530. b 

* - * 

struct  Z8530  { 

unsigned  char  00; 
unsigned  char  E  control; 
unsigned  char  _52; 
unsigned  char  I  control; 
unsigned  char  04; 
unsigned  char  5  data; 
unsigned  char  Jfc; 
unsigned  char  a  data; 


3.13  8536. b 

- — — — - ——————— —————— - — - — - * 

struct  Z8536  { 

unsigned  char  _00; 
unsigned  char  a  data; 
unsigned  char  02; 
unsigned  char  E  data; 
unsigned  char  JJ4; 
unsigned  char  c  data; 
unsigned  char  J56; 
unsigned  char  control; 

>; 

3.14  gmsv04.h 

* - * 

# include  "68153. h" 

#include  »68230.h" 

struct  GHSV04  { 

unsigned  short  port_1[32]; 
struct  MC68230  port~2; 
struct  HC68230  port"3; 
struct  HC68230  confTg; 
struct  MC68230  debug; 
struct  MC68153  intsel; 

); 

3.15  gmsv06.h 

* — - — - - - — — — — - - - — . - — * 

#include  "5380. h" 

^include  "68153. h« 
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•include  "68230. h" 


•include  "68450. h" 

•include  "68881 .h» 

•include  "8530.h" 

•include  "8536.h" 

struct  GMSV06  { 

struct  Z8536  config; 
unsigned  char  _008t0xf83; 
struct  MC68153“int  cntrllr; 
unsigned  char  _110l0xf0]; 
struct  MC68230-rtc_pp; 
unsigned  char  240(0xc0]; 
struct  NCR5380~scsi ; 
unsigned  char  310 COxfOl ; 
struct  MC68450~chw; 
unsigned  char  _440[0xc0); 
struct  Z8530  serial; 
unsigned  char  _508t0xf8); 
struct  MC68881~fpcp; 

>; 

•define  gmsv06  (‘((struct  GHSV06  *)0xfe0000>) 

3.16  hist.h 

A - — - A 

•define  XOFFSET  60 
•define  XS1ZE  420 
•define  YOFFSET  8 
•define  YSIZE  300 

3.17  rt.h 

* - - — — — — ——————— —————— — * 

•define  MAX_RT  BLADES  5 
•define  HAX_RT~REVS  10 

•define  XOFFSET  79 
•define  XSIZE  400 
•define  YOFFSET  8 
•define  YSIZE  300 

3.18  scsi.h 

A- — — — — - — - * 

/*  scsi  commands  */ 

•define  HISTOGRAM  0x02 
•define  REQUEST  SENSE  0x03 
•define  REAL  TIME  DISPLAY  0x06 
•define  RECEIVE  0x08 
•define  SETUP  0x09 
•define  SEND  0x0a 

/*  scsi  phases  */ 

•define  DATA  OUT  0 
•define  DATA**IN  1 
•define  COMMAND  2 
•define  STATUS  3 
•define  MESSAGE  OUT  6 
•define  MESSAGE  JN  7 

3.19  t&pe.h 

A - A 

•define  BASE  OxffffOO 

•define  DMA  DATA  ((short  ‘XBASE  +  0x10)) 

•define  DMA~ADDR  ((short  ‘XBASE  ♦  0x12)) 

•define  COMMAND  ((unsigned  char  ‘XBASE  ♦  0x1b)) 

•define  CONTROL  ((unsigned  char  ‘XBASE  ♦  0x19)) 

•define  DATA  ((unsigned  char  ‘XBASE  ♦  Oxld)) 


17 


•define  STATU$_0  ((unsigned  char  *)(BASE  ♦  0x19)} 
•define  STATUSJ  ((uneigned  cher  *)<BASE  ♦  Oxlb)} 


•define  FNK  0x01  /*  File  Nark  detected  V 
•define  EOT  0x02  /*  End  Of  Tape  detected  */ 
•define  HER  0x0*  /•  Hard  Head  Error  */ 
•define  CEB  0x08  /*  Corrected  Read  Error  */ 
•define  OLOST  0x10  /*  Mo  data  lost  •/ 
•define  TDREQ  0x20  /*  No  data  byte  requested  */ 
•define  FBY  0x*0  /*  Formatter  not  busy  */ 


•define  DBY  0x80  /*  Not  in  Data  Transfer  Node  */ 

•define  SPD  0x01 
•define  NRZ  0x02 
•define  CCG  0x0* 

•define  LPT  0x08 
•define  FPT  0x10 
•define  RUD  0x20 
•define  ONL  OxAO 
•define  ROY  0x80 

•define  CCEN  0x01 
•define  LOL  0x02 
•define  REU  0x0* 

•define  OFL  0x08 
•define  FEN  0x10 
•define  FAD  0x20 
•define  TAD  OxAO 

•define  REV  0x01 
•define  ERASE  0x02 
•define  EDIT  0x0* 

•define  THR1  0x08 
•define  THR2  0x10 
•define  0EN  0x20 
•define  UFN  OxAO 
•define  WRT  0x80 

3.20  turbin.h 

- - — - - - - - — - - * 

•define  iadigit(x)  <(x)  >*  '0'  U  (x)  <*  '9') 

•define  void  int 
•define  TROE  1 
•define  FALSE  0 

•define  SLAVE  BSS  7*0 
•define  SLAVE~DATA  0 
•define  SLAVE~END  0x200000 

•define  SLAVE  MEMSI2E  (SLAVE  ENO-OxIOOO-SLAVE  DATA-SLAVE  BSS) 

•define  MAX  BLADES  70 
•define  HAX_STATI0NS  * 

•define  TU057  1*0737*88355328.0 

•define  VECTOR  6* 

struct  HEADER  ( 

long  n_blades; 
long  n”revs; 
long  notations; 
long  ave_speed; 
long  min_speed; 
long  max  speed; 
long  00c  (26); 
char  date  (9); 
char  excit  freq(5); 
char  time(B); 
char  radius(16); 
char  run_des(80); 
char  run~id(16); 
char  sp_3es (2) (80) ; 
char  sp~id(16); 
char  _l56[7A); 


/*  NOTE:  if  any  elements  of  structure  OPSTAT  are  changed,  the  routine 
risr.s  must  be  changed  also  */ 
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struct  OPSTAT  { 

char  data_avail; 
char  data~«ri tten; 
char  talcing  data; 

>; 

3.21  vme402.h 

((define  BASE  OxffffOO 

/*  DMA  definitions  */ 

((define  DMA  ADDR  ((short  *)(BASE  ♦  0x12)) 

((define  DMA~DATA  ((short  *)(BASE  +  0x10)) 

((define  MMR  0x38 
((define  CR  0x2e 
((define  CAR_A_H I  0x1a 
((define  CAR-A~LO  0x0a 
((define  CAR~B“h1  0x12 
((define  CAR~B“lO  0x02 
#def ine  COC  “  0x32 

((define  CMR  HI  0x56 
((define  CHR~LO  0x52 
((define  ChAR_Hl  0x26 
#def ine  ChAR~LO  0x22 

/*  tape  definitions  */ 

((define  TAPE  COMMAND  STATUS  1  ((unsigned  char  ‘XBASE  ♦  0x1b)) 
((define  TAPE-CONTROl“STATUS-0  ((unsigned  char  *)(BASE  +  0x19)) 
((define  TAPE~DATA  "  “  ((unsigned  char  ‘XBASE  ♦  Oxld)) 


((define  FHK  0x01  /*  File  Mark  detected  */ 
((define  EOT  0x02  /•  End  Of  Tape  detected  */ 
((define  HER  0x04  /*  Hard  Read  Error  */ 
((define  CER  0x08  /*  Corrected  Read  Error  ‘/ 
((define  DLOST  0x10  /•  No  data  lost  */ 
((define  TDREQ  0x20  /*  No  data  byte  requested  */ 
((define  FBY  0x4(1  /*  Formatter  not  busy  */ 


((define  DBY  0x80  /*  Not  in  Data  Transfer  Mode  */ 

((define  SPD  0x01 
((define  NRZ  0x02 
((define  CCG  0x04 
((define  LPT  0x08 
((define  FPT  0x10 
((define  RUD  0x20 
((define  ONL  0x40 
((define  RDY  0x80 

((define  CCEN  0x01 
((define  IOL  0x02 
((define  REU  0x04 
((define  OFl  0x08 
((define  FEN  0x10 
((define  FAD  0x20 
((define  TAD  0x40 

((define  REV  0x01 
((define  ERASE  0x02 
((define  EDIT  0x04 
((define  THR1  0x08 
((define  THR2  0x10 
((define  DEN  0x20 
((define  UFM  0x40 
((define  WRT  0x80 

((define  READ  Oxff 
((define  WRITE  0x7f 
((define  T  WFM  0x3f 


3.22  bdOS.C 


* - * 

/****************************************************************************/ 
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/* 

/*  bdos.c 
/* 

/*  This  file  implea*nts  (except  for  handling  AC)  the  following  bdos  calls 

/* 

/*  1  -  Console  Input 
/*  2  -  Console  Output 
/*  10  -  Read  Console  Buffer 
/*  11  -  Console  Status 
/* 


V 

V 
*/ 

V 
*/ 

V 
*/ 

V 
*/ 

V 
'*/ 


short  column  *  0 

char  echo_to_list  *  0; 

char  crt  ■  Oj 

char  ts_buffert126]  =  0; 

char  ta~n_char  *  0; 

char  *ta_get_ptr  *  ta_buffer; 

char  *tajxjt_ptr  *  ta^buffer; 

bdos(d0,  dl) 
short  dO; 
long  dl; 

{ 

auto  char  string[81]; 


if  (dO  «  1)  ( 

/*  Console  Input  */ 
dO  *  con_input<); 

>  else  if  (dO  **  2)  ( 

/*  Console  Output  */ 
con  output (dl); 
dO  *  0; 

>  else  if  (dO  »*  10)  { 

/*  Read  Console  Buffer  */ 
read  console  buffer(dl); 
dO  *~0; 

)  else  if  (dO  *=  11)  { 

/*  Get  Console  Status  */ 
dO  ■  con_status(); 

)  else  { 

sprintf(string,  "Error  -  bdos  function  Xd  not  implemented",  dO); 

print(string); 

dO  *  -1; 

) 

return  dO; 

) 


/*  $38cea  */ 
con  inputO 
{ 

register  char  c; 

put  char(c  *  get  charQ); 

if  (c  «  '\020'f 

echo_to_list  =  I  echo_to_list; 
return  c; 

) 


/*  S38c12  V 
con^outputlc) 
register  char  c; 

C 

if  (c  «  '\t')  ( 
do  { 

put#char('  '); 

)  while  ((colutn  t  0x07)  I*  0); 
>  else  ( 

put  char(c); 

) 

) 

/*  S38af2  */ 
con_status() 

{ 

if  (ta_n_char  I*  0) 
return  (1); 

else 
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return  (bios(2)); 

) 

/*  $JBe46  •/ 

read_coneole_buffer(buffer) 
regilter  char  buffer U; 

( 

register  char  c; 
register  short  i; 
short  old_coti*r; 

old  column  *  column; 
buf7erl1]  *  0; 

while  (buffertl]  <  buffertOl)  { 

if  <<c  «  get_char())  **  3  U  buffertl]  «■  0) 

if  (c  ««  *\r'  ||  c  *«  *\n')  < 
put_char('\r'); 
return; 

)  else  if  <c  «■  '\b'>  { 

backspece(buffer,  old  column); 

>  else  if  (c  »«  '\177')  {  ~ 

if  (crt  I*  0) 

backspacetbuffer,  old  collar); 

else 

if  (buffertl)  !«  0)  C 
--buffertl]; 

put  char(buffer [buffertl]  ♦  2]); 

) 

)  else  if  (c  *»  '\020')  < 

echo  to  list  »  I  echo  to  t ist; 

)  else  if  (c  «*  '\030')  (  "  " 

/•  control -X  (CAN)  V 
do 

beckspece(buffer,  old  collar); 
while  (buffertl]  l«  0); 

>  else  if  (c  «  »\005')  ( 

/•  control -E  */ 
newline(old  collar); 

}  else  if  (c  «  '\625')  { 

/*  control -U  V 
put  char('#'); 
newTine(old  column); 
buffertl]  *  0; 

}  else  if  (c  «  *\022')  { 

/*  control -R  */ 
put  char('N'); 
new! i ne ( o l d_co l umn ) ; 
for  (i  *  0  7  i  <  buffertl]  ;  i++) 
echo(bufferti»2]); 

)  else  ( 

buffer [buffertl]  ♦  2]  »  c; 

echo(c); 

buffer [1]*+; 


/*  $38c50  V 
echo(c) 

register  char  c; 

( 

if  (c  «  '\t')  ( 

con_output(c); 

)  else  if  !c  <  '  ')  { 
put_char('A'); 
put~char(c  I  0x40); 

)  else  { 

put  char(c); 

> 

) 

/*  *38c92  */ 
get  char() 

( 

register  char  c; 
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if  <ta_n_ch8r  !*  0)  { 

"c‘=  *ta_get_ptr++; 
ta_n_char- - ; 
i f~( ta_n_char  **  0)  { 

”ta_get_ptr  *  ra_buffer; 
tajxit_ptr  =  ta'buffer; 

} 

return  (c); 

>  else 

return  (bios(3)); 

> 

/*  $38d96  */ 
newline(column) 
register  short  colunn; 

( 

put_char('\r'); 

put~char('\n'); 

for~(  ;  colunn  !=  0  ;  colunn--) 
put  char('  '); 

> 

/*  $33dcc  */ 

backspacefbuffer,  my_colunn) 
register  char  buffer!]; 
register  short  my  colunn; 

register  char  c; 
register  short  count; 
register  char  *ptr; 

if  (buffertl]  I*  0) 
buffertl]--; 
count  *  buffertl]; 

for  (ptr  *  lbuffer[2]  ;  count-*  1=  0  ;  )  { 
c  *  *ptr++; 
if  (c  »  '\t') 

my  colunn  =  <my_column  +  8)  &  -7; 
else  if  (c  <  '  ') 

my_colunn  +*  2; 

else 

my  column  ++; 

> 

while  (my_colum  <  colunn)  { 
put_char('\b'); 
put^chart'  '); 
put-char('\b' ); 

> 

) 

/*  $38ba4  */ 
put^charfc) 

register  unsigned  char  c; 

< 

check  xonO; 
bios(5,  c); 
if  (echo^to  list) 
biostS,  c); 
if  (c  >=  '  ') 

column*-*; 

else  if  (c  **  '\r') 
colunn  *  0; 
else  if  (c  *=  '\b') 
column--; 

return; 

) 

/*  $38b10  */ 
check  xon() 

( 

register  char  c; 
register  char  flag; 

flag  *  0; 
do  ( 

if  (bios(2)  ! =  0)  { 

if  (<c  *  bios(3))  ==  3)  ( 
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/•  control -C  V 

)  «ltt  'if  (c  *=  0x13)  ( 

/*  control-S  (XOFF)  */ 
flag  *  1; 

>  else  if  {c  *«  0x11)  { 

/*  control -Q  (XON)  */ 
flag  *  0; 

}  else  if  (c  =*  0x10)  { 

/*  control-P  */ 
echo_to_list  *  I  echo  to_list; 

)  else  if  (tajn_char  <  sizeol(ta_buffer))  { 
*ta _put_ptr+*  *  c; 
ta  n_char-r>; 

> 

> 

)  while  (flag  I*  0); 

) 

print(strptr) 
char  *strptr; 

{ 

while  <*strptr  !«  '\0') 
bios(4,  *strptr++); 

) 


3.23  bios.o 
* - ... 


/*  V 
/*  bios.c  */ 

/*  V 
/*  This  file  impleaients  the  following  bios  calls:  V 
/*  */ 
/*  2  -  Console  Status  V 
/*  3  -  Read  Console  Character  */ 
/*  4  -  Write  Console  Character  V 
/*  V 
/****•*•••*•••••*«•••«*••••*«*•*•*•*•**••**••••••*•*******••***•***»••*•*•*••/ 


•include  "gmsv06.hH 

•define  Rx  CHARACTER  AVAILABLE  0x01 
•define  Tx~BUFFER_EMpTY  0x04 

bios(d0,  dl) 
short  dO; 
short  dl; 
f 

if  <d0  «  2)  { 

/*  Console  Status  */ 

if  <(gmsv06. serial. a  control  l  Rx  CHARACTER  AVAILABLE)  !■  0) 
dO  *  Oxff;  "  ~ 

else 

dO  «  0; 

)  else  if  (dO  «  2)  { 

/*  Read  Console  Character  */ 

while  ((gmv06.serial.a_control  l  Rx_CHARACTER_AVAILABLE)  **  0) 

dO  >  ga»v06. serial. a  data  l  0x7f; 

)  else  if  (dO  4)  { 

/*  Write  Console  Character  */ 

while  ((gmsv06. serial. a_control  l  Tx_SUFFER_ENPTY)  **  0) 

• 

gmsv06. serial. a  data  «  dl; 
dO  *  0; 

>  else  { 

dO  «  -1; 

) 

return  dO; 

) 


* 


3.24  chang*. c 

* - - * 

•include  <stdio.h> 
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#include  "turbin.h" 


changeO 

{ 


auto 

char 

buffer [81]; 

auto 

char 

dateCIO}; 

extern 

struct  HEADER 

header; 

extern 

int 

n_blades; 

extern 

int 

n~stations; 

auto 

char 

time [9] ; 

printf("\033t2J\033C1;1H");  /*  Clear  Screen  and  home  */ 
get_date(date); 

printf("The  date  is  currently  %s\n",  date); 
if  (query("Do  you  want  to  change  the  date")) 
set_date(date); 

get_time(time); 

printfC'The  time  is  currently  %s\n",  time); 
if  (queryCDo  you  want  to  change  the  time")) 
set_time(time); 

queryi ("Number  of  stations",  &n_stations,  0,  HAX_STATIONS); 

querysC'Specimen  1.0. ",  header. sp_id,  sizeof< header. sp_id),  "">; 

queryt( "Specimen  description",  header. sp_des,  si zeof( header. sp_des)); 

querysC'Specimen  radius",  header. radius,  si zeof (header. radius),  "in."); 

queryi ("Number  of  blades",  &n_blades,  "",  1,  70); 

header. n_blades  *  n_blades; 
header. notations  *-n_stations; 


3.25  cmdlx.c 


#include  <stdio.h> 

#define  putchar(c)  fputc(c,  stdout); 

cmdlx(opcode) 
char  "opcode; 

( 

putchar('\033' ); 
putchar(*opcode); 
opcode++; 
putchar(*opcode); 


3.26  disabl.c 


#include  "gmsvOA. h" 

disableO 

{ 

register  struct  GMSVOA  "gmsvOA; 
gmsvOA  *  OxfffOOO; 

/*  deassert  port_3's  HA  to  disable  remote  electronics  */ 
gmsvOA  ->  port_37pbcr  =  0x20; 

/*  deassert  port_2's  HA  to  clear  data  available  flip-flop  */ 
gmsvOA  ->  port_27pbcr  *  0x20; 


3.27  enabltt.c 

* - 

Ninclude  "gmsvOA. h" 

enableO 
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< 

register  struct  GMSV04  *gmsv04; 
register  char  temp; 

gmsv04  *  OxfffOOO; 

/*  clear  buffers  */ 

while  ((gmsv04  •>  port_3.psr  l  0x04)  !*  0) 
ttmo  *  gntv04  •>*  port  3«Dbdr; 
while  ((gmsv04  ->  port_2.par~t  0x04)  I*  0)  { 
temp  «  gmsv04  ->  port  2.padr; 
temp  *  gmsv04  ->  port-2.pbdr; 

) 

/*  set  port_2's  N4  to  pulsed  input  handshake  protocall  */ 
gmsv04  ->  port_2.pbcr  *  0x3a; 

/*  assert  port  3'a  H4  to  enable  remote  electronics  */ 
gmsv04  ->  port“3.pbcr  *  0x28; 

) 

3.28  «3Ct«rn.C 

* - - - - - * 

^include  "turbin.h" 

extern  struct  HEADER  header  «  0; 
extern  struct  0PSTAT  opstat  *  0; 

/*  global*  for  interrupt  service  routines  */ 

extern  long  *rd_end  «  0; 
extern  long  *rdjatr  «  0; 
extern  long  *rd_start  *  tjaemory; 

/*  globals  for  histogram  routines  */ 

extern  int  hist_n_bars  *  0; 
extern  int  hist“xstep  *  0; 
extern  int  hist"yold[HAX  BLADES]  *  0; 
extern  int  hist“yoffset  =>  0; 

/*  globals  for  tape  routines  */ 

extern  char  control  «  0; 
extern  char  last_op  x  0; 

extern  int  n_blades  x  5; 
extern  int  notations  x  4; 

extern  long  rtd  n  revs  *  0; 
extern  int  rtd_FeTght  ■  0; 
extern  int  rtd~n_blades  *  0; 
extern  int  rtdjcitep  x  0; 
extern  int  rtd“ystep  x  0; 
extern  int  rtd~ystart  *  0; 
extern  int  rtd~hd2  *  0; 

3.29  gatdat.c 

* — — — — - —————— - __________________________ — — — — — - ~ - * 

get^datefdate) 
register  char  ‘date; 

{ 

unsigned  char  buffer(13]; 

register  int  i; 

static  char  months[13H3]  *  { 

•V, 

'J',  'a',  'n', 

•r,  'e',  'b', 

'H',  'a',  »r\ 

'A'.  'p',  ' r 

'y'. 

'J',  'u',  'n', 

'J',  'u',  'l', 

'A',  'u',  'g'( 

'S',  'p'. 
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'O',  'c',  't', 
'N',  'O',  'v', 
'O',  '•',  'c' 


register  char  *ptr; 

clock  r(buffer); 
i  *  buffer  18]  t  0x03; 
if  <i  **  0) 

*date++  =  '  '; 

else 

•date*-*-  *  i  ♦  'O'; 

*date++  =  buffer[7]  ♦  'O'; 

•date*-*-  * 

i  *  buffer [10]  t  0x01; 
if  (i  !«  0) 
i  *  10; 

i  ♦=  buffer  [9]; 
if  (i  >  12) 
i  *  0; 

ptr  «  ImonthsCi]  [0] ; 

*date++  *  *ptr++; 

•date*-*  *  *ptr++; 

*date++  *  *ptr++; 

*date++  * 

*date++  *  buffer [12]  +  'O'; 

‘date*-*-  *  bufferill]  +  'O'; 

*date++  *  '\0'; 

> 

3.30  getl.c 

*- - * 

unsigned  int  getKpfio,  s,  n) 
char  *pfio; 
char  *s; 
unsigned  int  n; 

( 

auto  unsigned  char  buffer[257); 
register  unsigned  int  i; 

buffer [0]  =  n; 

cpm(10,  buffer); 

i  =  buffer  [1] ; 

if  (i  !=  n)  { 

buffer[i+2]  =  '\n'; 
cpro(2,  '\n'); 
i++; 

> 

n  =  i; 

for  (i  *  0  ;  i  <  n  ;  i++) 

*s++  *  buffer (i  +  2]; 

return  n; 

> 

3.31  gettia.c 

* - * 

get^time(time) 
register  char  *time; 

{ 

unsigned  char  buffer[13]; 
clock_r(buffer); 

*time++  *  [buffer[5]  &  0x03)  +  'O'; 

*time++  *  buffered]  +  'O'; 

*time++  = 

*time++  *  buffer[3]  ♦  'O'; 

*time++  »  buffer[2]  +  'O'; 

*time++  = 
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*time«-*  *  buffertl)  +  'O'; 
*time++  *  buffer(O)  +  'O'; 
*time++  *  '\0'; 


) 

3.32  histin.c 


/*  V 
/*  hist  init  */ 
/*  “  */ 
/*  This  routine  sets  up  and  labels  the  screen  for  a  histogram  V 
/*  V 


#include  <stdio.h> 

#include  "hist.h" 

hist_init(n_bars) 
int  n  bars;- 
{ 

extern  int  hist_n_bars; 
extern  int  histJTsfep; 
extern  int  hist~yoffset; 
extern  int  hist~yoldt); 
int  i; 
int  n; 

char  string [2]; 
int  x; 

hist_n_bars  *  n  bars; 
histjistep  *  XSlZE  /  n_bars; 

/*  Determine  #  of  lines  at  bottom  of  screen  */ 

if  (hist  xstep  <  12) 

hfst_yoffset  =  YOFFSET  +  16; 

else 

hist_yoffset  =  YOFFSET  +  8; 

x  =  (hist  xstep  »  1)  -  3  +  XOFFSET; 
for  (i  1  5  ;  i  <  hist  njsars  ;  i++)  { 
hist^yoldti]  ="hrst_yoffset; 
n  *  T+1; 

string(O)  =  n  /  10  +  'O'; 
if  (stringlO)  ==  '0') 
stringtO]  1  '  '; 
stringll]  =  n  X  10  +  'O'; 
if  (hist  xstep  >=  12)  < 

if  (stringtO)  ==''){ 
cmdlxCLF"); 
xy1x(x,  YOFFSET); 
cmdlxCLT"); 
intlx(l); 

putchar(stringtl) ); 

)  else  { 

cmdlxCLF"); 
xy1x(x  -  3,  YOFFSET); 
cmdlxCLT"); 
int1x(2); 

putchar(stringtO) ); 
putchar(stringtl)); 

} 

>  else  C 

cmdlxCLF"); 
xy1x(x,  YOFFSET  +  8); 
cmdlxCLT"); 
intlx(l); 

putchar(stringtO) ); 
cmdlxCLF"); 
xy1x(x,  YOFFSET); 
cmdlxCLT"); 
inti x( 1 ) ; 

putchar(stringtl) ); 

> 

x  ♦=  hi8t_xstep; 


2' 


<*»  * 


) 


) 


.33  histog.c 


/*  histogram  */ 

/*  V 
/*  This  routine  performs  the  histogram  quick  look  */ 
/*  */ 
/*  While  thia  routine  is  running  the  following  keys  are  recognized:  */ 
/*  V 
/*  '  '  -  resets  the  full  scale  value  to  the  current  maximun  V 
/*  '\r'  -  exits  histogram  mode  after  current  histogram  */ 
/*  V 


ifinctude  <stdio.h> 
#include  "turbin.h" 
ifinclude  "scsi.h" 


histogramO 

( 

extern 

extern 

auto 

auto 

register 

auto 

static 

auto 

auto 

auto 

register 

auto 

auto 

extern 

static 

auto 

auto 

static 

extern 

extern 

extern 

auto 

auto 

static 

auto 

static 

static 

auto 

auto 

auto 


struct  HEADER 

struct  OPSTAT 

int 

char 

long 

char 

char 

int 

long 

float 

int 

int 

char 

int 

int 

long 

long 

long 

tong 

long 

long 

long 

long 

char 

int 

int 

int 

char 

long 

char 


header;  /*  must  be  before  siteof(header.*)  */ 

opstat; 

c; 

cdb[6); 

*d_ptr; 
date  [10] ; 

excit_freq[sizeof(header.excit_freq)  +  1]; 
exit;- 
first; 
h  time; 

>7 

id; 

message_in; 

nbladel; 

n~h_revs; 

n_revs; 

range [HAX_BLADES] ; 
rangemax;- 
*rd_end; 

*rdj)tr; 

*rd_start; 

recip; 

revs^left; 

run  Td[sizeof(header.run  id)  ♦  1); 
speed; 

8tart_rev; 

station; 

status; 

sun; 

time  [9] ; 


if  (opstat. data_avai l  &&  opstat. data_written) 
opstat. data_avai l  =  FALSE; 

printf("\033[2J\033[1;1H");  /*  Clear  Screen  and  Home  */ 


query i ("Station  for  histogram",  Sstation,  "",  1,  A); 
id  =  1  «  (station  -  1); 

/* 

queryf("Time  between  histograms",  h_time,  "seconds",  0.5,  10.0); 
n  h  revs  =  h  time  *  (speed  /  60. 0);- 

*/ 

query i("Murber  of  revs  for  histogram",  &n_h_revs,  "",  1,  999); 
if  (opstat. taking_data)  { 

for  (i  *  sizeof(header.run_id)  -  1  ;  i  >=  0  ;  i--) 
if  (header. run_id[i]  1=  '  ') 
break; 

run  id[i+1]  =  '\0'; 
while  (i  >*  0)  ( 

run  idti]  =  header. run  idli); 
i--; 
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) 


for  (i  =  sizeof(header.excit_freq)  *  1  ;  i  >=  0  ;  )--> 
if  ( header. excit_freq[fl  !=  '  ') 
break; 

excit_freqti+1]  *  '\0'; 
wh I l e~ < I  >=  0)  { 

excit_freq(i]  =  header. exci t_f req [i ] ; 

} 

)  else  { 

opstat.dota_avai l  =  FALSE; 

querysCHistogram  I.D.",  run_id,  -sizeof(run_id), 
querys(MExcititation  frequency",  excit_freq,--sizeof (excit_freq), 


scrn_init(); 

title(run_id,  station,  excit_freq); 

hist_init(n_blades);  /*  label  histogram  screen  */ 

rangemax  =  0; 
exit  =  FALSE; 
do  { 

get_date(date); 
get~time(tiroe); 
if  (opstat.taking_data)  { 

start  rev  =  rd_ptr  -  rd_start; 
revs_Teft  =  rd_end  -  rdjitr; 

if  (revs_left  <  (n_h_revs  +  2))  /*  if  we  ore  finishing  up  */ 
break;  /*  disallow  histograms  */ 

>  else  if  (opstat.data_avail)  C 

/*  we  finished  “exit  */ 
break; 

>  else  { 

disableO; 
rd_ptr  =  rd_start; 

n_revs  =  n_h“revs  +  3;  /*  since  first  rev  of  data  is  bad  */ 
/*  and  we  need  previos  rev  for  fixup  */ 
rd_end  =  rd  start  +  n_revs; 
setup(station,  n_revs); 
enableO; 

start_rev  =  3;  /*  since  first  rev  of  data  is  bad  */ 

/*  and  we  need  previos  rev  for  fixup  */ 

> 

if  (scsi  set (id))  { 
cdblC]  =  HISTOGRAM; 
cdb[1)  =  start_rev  »  16; 
cdb[2]  =  start_rev  »  8; 
cdb[3]  =  start~rev; 
cdb[4]  =  n_h_revs  »  8; 
cdb[5]  =  n_h~revs; 
scsi_out(COHMAND,  cdb,  6); 

/*  send  previous  rev  time  for  back  jitter  of  first  blade  V 
d  ptr  =  rd_start  +  (start_rev  •  1); 
while  (d_ptr  >=  rd_ptr) 

scsi_out(OATAJ)UT,  d_ptr++,  4); 
for  (i  »  0  ;  T  <  n_h_revs  ;  i++)  { 
while  (d_ptr  >*  Fd_ptr) 

if  (i  ='=  0)  { 

firat  =  *d_ptr; 
sue  *  0; 

>  else  { 

sue  +=  *d_ptr  -  first; 

) 

scsi_out(0ATA  OUT,  d_ptr,  4); 
recip  =  TW04 Tl  *d_ptr++  +  0.5; 
scsi  out(DATA  OUT,  &recip,  4); 

) 

for  (i  =  0  ;  i  <  n  blades  ,  i++)  ( 
scsi  in(DATA_!N,  IrangeliT ,  4); 
if  ( range  Til  >  rangemax) 
rangemax  =  range l i); 

> 
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CO  * 


scsi_in($TATUS,  latatua,  1); 
scsi~in(NESSAGE_IN,  Lnessagejn,  1); 
if  (statue  ■«  OT  C 

speed  *  (60  *  10000000)  /  (first  +  (sum  /  n_h_revs)); 

update(speed,  date,  time); 
hist_plot(range,  rangemex); 

)  else  { 

printf("Error  -  data  station  had  an  error\n"); 

) 

)  else  { 

printfC'Error  -  data  station  does  not  respond\n");  ‘ 

) 

/*  check  if  char  available  */ 
while  (cpaKII,  0)  !=  0)  ( 

/*  get  char  */ 
c  *  cpm(1,  0); 

cmdlxC'LZ");  /*  CLEAR  DIALOG  SCROLL  */ 
if  (c  **  '  ') 

rangemex  =  0; 

else  if  (c  =*  '\r*  1 1  c  *=  '\n') 
exit  =  TRUE; 

) 

)  while  (!  exit); 

printf("\033\0U");  /*  Clear  graphics  screen  */ 
printf("\033XXI 1");  /*  Select  ANSI  mode  */ 

) 

.34  histpl.c 


Z*******************************.********************************************/ 
/*  */ 
/*  hist  plot  */ 
/*  */ 
/*  This  routine  plots  the  histogram  bars  on  the  screen  */ 
/*  */ 


^include  <stdio.h> 

# include  "hist.h" 

hist_plot(da*a,  datamax) 
long  data[] ; 
long  datamax; 

( 

extern  int  hist_n_bars; 
extern  int  hist~xstep; 
extern  int  hist'yoffset; 
extern  int  hist~yold[70] ; 
int  i ; 
int  x l ; 
int  xr; 
int  y; 

char  stringtll]  ; 

xl  =  XOFFSET  ♦  1; 

xr  *  XOFFSET  +  hist_xstep  -  2; 

for  (i  =  0  ;  i  <  hist_n_bars  ;  i++)  { 

y  »  (data [i ]  *-YSlZE)  /  datamax  +  hist_yoffset; 
if  (y  <  hist  yoldti] )  { 
cmd1xf"RR"); 
xy1x(xl ,  y  +  1); 
xylxfxr,  hist_yold(i] ); 
intlx(O); 
hist_yoldli]  =  y; 

)  else  if  (y  >  hist  yoldti])  ( 
cmdlxC’RR");  ~ 
xy1x(xl,  hist_yold[i]  +  1); 
xy1x(xr,  y); 
intlx(l); 
hist  yoldti]  =  y; 

) 

xl  hist_xstep; 
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xr  ♦*  hist_xstep; 


> 

/*  Draw  0  level  line  */ 
cmdlxCLF"); 

xy1x(X0FFS£T,  hist  yoffset); 
cmdlxCLG*); 

xy1x(X0FFSET+XSIZE,  hist  yoffset); 
cmdlxCLF"); 

xy1x(XOFFSET-10,  hist  yoffset-3); 
cmdlxCLT"); 

intlx(l); 

printfCO"); 

/*  Display  Full  Scale  Haximun  value  &  level  */ 
cmdlxCLF"); 

xy1x(X0FFSET-58,  hist  yoffset+YSlZE-3); 

cmdlxCLT"}; 

intlx(IO); 

printf("X9d",datamax); 

cmdlxCLF"); 

xylxlXOFFSET,  hist  yoffset+YSIZE+1); 
cmdlxCLG"); 

xylxIXOFFSET+XSIZE,  hist_yoffset+YS!ZE*1); 


3.35  initpo.c 

* - - - 

# include  "gmsv04.h" 

initjxjrt(vector) 
register  int  vector; 

C 

register  struct  GHSV04  *gmsv04; 
gmsv04  »  OxfffOOO; 

gmsv04  ->  port_2.pgcr  1=  -0x30;  /*  disable  H12  and  H34  */ 

gmsv04  ->  port-2.pgcr  *  0x40;  /*  mode  1  (unidirectional  16-bit  mode)  */ 

/*  H34  disabled  */ 

/*  H12  disabled  */ 

/*  H4  pin  sense  -  negative  true  */ 

/*  H3  pin  sense  -  negative  true  V 

/*  H2  pin  sense  -  negative  true  V 

/*  HI  pin  sense  -  negative  true  */ 

gmsv04  ->  port_2.pgcr  |=  0x20;  /*  enable  H34  */ 
gmsv04  ->  port  2.psrr  =  0x08;  /*  PC4  *  PC4  */ 

/*  _ V 

/*  PC5  =  PIRQ  */ 

/*  PC6  =  PC6  •/ 

gmsv04  ->  port_2.pacr  =  0x00; 

/*  clear  data  avail  flip  flop  V 

gmsv04  ->  port_2.pbcr  =  0x28;  /*  8  submode  X0  -  double  buffered  input  */ 

/*  H4  asserted  */ 

gmsv04  ->  port_2.pcddr  |=  0x93;  '*  make  buffer  control  lines  outputs  V 
gmsv04  ->  port~2.pcdr  &=  -0x93;  /*  and  make  A  input  +  B  input  */ 

gmsv04  ->  port_3.pgcr  4=  -0x30;  /*  disable  H12  and  H34  */ 

gmsv04  ->  port_3.pgcr  =  0x08;  /*  mode  0  (unidirectional  8-bit  mode)  */ 

/*  H34  disabled  */ 

/*  H12  disabled  */ 

/*  H4  pin  sense  -  positive  true  */ 

/*  H3  pin  sense  -  negative  true  */ 

/*  H2  pin  sense  -  negative  true  */ 

/*  HI  pin  sense  -  negative  true  */ 

gmsv04  ->  portJJ.pgcr  |*  0x20;  /*  enable  H34  */ 
gmsv04  ->  port_3.p«rr  *  0x00; 

gmsv04  ->  port”3.pacr  *  0x00; 

/*  disable  remote  electronics  */ 

gmsv04  ->  port_3.pbcr  *  0x20;  /*  B  submode  00  -  double  buffered  irput  */ 
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/*  H4  Output  -  negated  */ 

gmsv04  ->  port  3.pcddr  |*  0x93;  /*  make  buffer  control  lines  outputs  */ 
g«ev04  ->  port_3.pcdr  4*  -0x93;  /*  and  make  A  input  +  B  input  */ 

gmev04  -»  debug. pcddr  |*  0x10;  /*  make  PC4  an  output  */ 
gmsv04  ->  debug. pcdr  4*  -0x10;  /*  turn  off  fail  led  */ 

gmsv04  ->  intsel.vr_0  *  vector; 

gmsv04  ->  intsel.crj)  =  0x16;  /*  enable  interrupts  at  level  6  */ 
return; 

) 

3.36  intlx.c 

* - 

#include  <stdio.h> 

^define  putchar(c)  fputc(e,  stdoot) 

intlxf ihtarg) 
int  intarg; 

int  jhil,  jhi2,  jloi; 

if  (intarg  >*  0)  C 

jloi  *  (intarg  4  OxOf)  +  48; 

>  else  { 

intarg  *  -  intarg; 

jloi  *  (intarg  4  OxOf)  +  32; 

> 

jhil  ■  (intarg  »  10)  +  64; 
jhi2  *  ((intarg  »  4)  4  0x3f)  +  64; 
if  (jhil  I*  64)  ( 

putchar(jhil); 

putchar(jhi2); 

>  else  if  (jhi2  I*  64)  { 
putchar( jhi2); 

) 

putchar(jloi); 

> 


3.37  putC.C 

* - 

putc(pfio,  c) 
char  *pfio; 
int  c; 

( 

if  (c  >  0)  { 

if  (c  «  '\n') 

cpm(2,  '\r'); 
cpm(2,  c); 

) 

) 

3.38  putl.C 

* - 

unsigned  int  putl(pfio,  s,  n) 
char  *pfio; 
char  *s; 
unsigned  int  n; 

( 

register  unsigned  int  i; 
i  =  n; 

while  (i--  l»  0) 

putc(pfio,  *s++); 

return  n; 

> 


3.39  query. c 

* - 


32 


#include  <stdio.h> 


query(prompt) 
char  ‘prompt; 

{ 

char  buffer [811; 
int  query; 

query  *  -1; 
do  { 

fputstprompt,  stdout); 
fputsC  ?  M,  stdout); 
fgets(buffer,  sizeof(buffer),  stdin); 
if  (buffertO)  ==  'Y'  ||  buffertO]  ==  'y') 
query  =  1; 

else  if  (buffertO)  ==  'N'  ||  buffertO)  ==  'n') 
query  =  0; 

)  while  (query  <  0); 
return  query; 

> 

3.40  query!. c 

*— — — ———————— — — — — —————— —————————————— 

^include  <stdio.h> 

^define  isdigit(x)  ((x)  >=  '0'  U  (x)  <=  '9') 

queryi (prefix,  value,  suffix,  min,  max) 

char  ‘prefix; 

int  ‘value; 

char  ‘suffix; 

int  min; 

int  max; 

C 

auto  char  buffer (81); 
register  int  i; 

int  itemp; 
int  nondigit; 

do  { 

nondigit  *  -1; 
itemp  =  ‘value; 

printf("Xs  =  Xd",  prefix,  ‘value); 
if  (suffixtO)  !=  '\0') 

printfC  Xs",  suffix); 
printfC  :  ",  stdout); 
fgets(buffer,  sizeof(buffer),  stdin); 
for  (i  =  0  ;  i  <  sizeof(buffer)  ;  i“)  { 
if  (buffer ti)  ■*  '\n' ) 
break; 

if  (t  isdigit(bufferti)))  { 
buffertO)  =  '\n'; 
nondigit  =  1; 
break; 

) 

> 

if  (buffertO)  1=  '\n') 

itemp  =  atoi (buffer); 

>  while  (itemp  <  min  ||  itemp  >  max  ||  nondigit  >  0); 
‘value  *  itemp; 

) 


3.41  query l.c 

#  include  <stdio.h> 

queryKpref ix,  value,  suffix,  min,  max) 

char  ‘prefix; 

long  ‘value; 

char  ‘suffix; 

long  min; 

long  max; 

( 

long  atolO; 
char  buffer £81); 
long  Itemp; 


do  { 

Itemp  *  ‘value; 

printf("Xa  »  Xld",  prefix,  ‘value); 
if  (suffix[0]  I*  '\0') 

printf(M  Xs",  stdout); 
printf("  :  "); 

fgets(buffer,  3 izeof (buffer),  stdin); 
if  (buffer [0]  !«  '\n') 

Itemp  «  atol(buffer); 

}  Utile  (Itemp  <  min  ||  Itemp  >  max); 

‘value  *  Itemp; 

> 


3.42  querys.c 

* - 

#include  <stdio.h> 

querys(prefix,  string,  length,  suffix) 

char  ‘prefix; 

char  ‘string; 

int  length; 

char  ‘suffix; 

< 

int  actlen; 
char  buffer [81]; 
register  int  i; 
int  maxlen; 
int  newlen; 

if  (length  <  0)  ( 

maxlen  *  -length  -  1; 
actlen  *  strlen(string); 

>  else  ( 

maxlen  *  length; 

for  (i  *  length  -  1  ;  i  >■  0  ;  i--)  { 

if  ((stringti]  1=  '  ')  M  (stringli]  1=  '\0')> 
break; 

) 

actlen  *  i  +  1; 

> 

do  ( 

printfCXs  =  ",  prefix); 
for  (i  =  0  ;  i  <  actlen  ;  i++) 
putchar(string[i] ); 
if  (suffix [0]  I*  '\0') 

printfC  Xs",  suffix); 
printf("  :  "); 

for  (i  *  0  ;  i  <  maxlen  ;  i+») 
putchar('_'); 

for  (i  *  0  ;  i  <** maxlen  ;  i++) 
putchar('\b'); 

fgets(buffer,  sizeof( buffer),  stdin); 
for  (i  =  0;  i  <  sizeof (buffer)  ;  i++) 
if  (buffer[i]  =*  '\n') 
break; 

neulen  =  i; 

)  while  (newlen  >  maxlen); 
if  (newlen  >  0)  { 

for  (i  =  0  ;  i  <  newlen  ;  i++) 
stringti]  =  bufferli]; 
if  (length  <  0) 

stringti]  =  '\0'; 

else 

for  (  ;  i  <  length  ;  i++) 


3.43  queryt.c 

* - 

f¥  include  <stdio.h> 

queryt( label,  string,  length) 

char  ‘label; 

char  string!]  [80]; 
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tnt  length; 

{ 

char  buffer  [813; 
register  int  i; 
register  int  j; 
int  last_len; 
int  line~len; 
int  laax  Ten; 
int  nlmT; 
int  nua_tines; 

non  lines  =  (length  ♦  79)  /  80; 

»  nlmT  *  nu»_lines  -  1; 

last_len  *-length  -  nlml  *  80; 

for  (i  =  0  ;  i  <  nun_lines  ;  i++)  ( 

*  printfCXa",  label); 

if  (nunjines  >  1) 

printf(M  (line  Xd  of  Xd)",  i  +  1,  num_lines); 
printfC*  is  currently  :\n“); 
if  (i  *=  nlial) 

max_len  =  last_len; 

else 

max_len  =  80; 

for  (j  *  max  len  -  1  ;  j  >=  0  ;  j--) 
if  (stringli]  [j]  1=  '  ') 
break; 

line_len  *  j  +  1; 
for  (j  »  0  ;  j  <  line  len  ;  j++) 
putchar(stringli]Tjl); 
putchar('Nn'); 

for  (j  *  0  ;  j  <  max_len  ;  j+>) 
putchar('_'); 
putchar('\r')T 

fgets(buffer,  max_len  +  1,  stdin); 
if  (buffer (0]  1=  '\n')  { 

/*  user  entered  some  new  text  */ 

/*  find  the  length  of  the  new  text  */ 
for  (j  *  0;  j  <  max_len  +  1  ;  j++) 
if  (buffer Cj]  **“\n') 
break; 
l ine_len  »  j; 

/*  copy  new  text  into  string  */ 
for  (j  *  0  ;  j  <  line  len  ;  j++) 
stringli]  lj]  =  buffer  [j]; 

/*  blank  fill  string  */ 
for  (j  =  line  len  ;  j  <  80  ;  j++) 
stringli]  [J]  *  • 

> 

) 

) 

3.44  realti.c 


/****».**•••*.•..*•».**..*»***••*****.•**..*»*•******»****..****•**»***•**»*•/ 

/*  */ 

/*  real  time  display  */ 

/*  V 

/*  This  routine  performs  the  real  time  quick  look  */ 

/*  */ 

/*  While  this  routine  is  running  the  following  keys  are  recognized:  */ 

-  /*  */ 

/*  ii.  resets  the  full  scale  value  to  the  current  maximum  */ 

/*  '\r'  -  exits  real  time  display  mode  after  current  real  time  display  */ 

/*  */ 

*  /•*•'**'*******«*««*««***«««*«*««***«*«**«*«***«**«*««*•***/ 


^include  <stdio.h> 

#include  "turbin.h" 

^include  "scsi.h1' 

^include  "rt.h" 

real  time  displayO 
( 

extern  struct  HEADER  header;  /*  must  be  before  si zeof( header.*)  */ 
extern  struct  0PSTAT  opstat; 
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blade [MAX  RT  BLADES]; 

c; 

cdb[6]; 

datellO]; 

data tHAX_RT_BLADES] [MAX  RT  REVS]; 

*d_ptr; 

excit  freqtsizeof (header. excit  freq)  +  1]; 

exit;- 

i; 

j; 

id; 

Max  DtAX_RT_BL  ADES]  ; 

message'inj 

min[MAX~RT_BLADES] ; 

n_blades; 

n'revs; 

prompt  [14] ; 

range; 

rangemax; 

*rd_end; 

♦rdjstr; 

*rd  start; 
recip; 
revs_left; 
rtd_n_blades; 
rtd~n~revs; 

run~i3[sizeof(header.run_id)  ♦  1]; 


auto 

unsigned  int 

speed; 

static 

int 

start_rev; 

static 

int 

station; 

auto 

char 

status; 

auto 

long 

sum; 

auto 

char 

time  [9]; 

auto 

char 

temp; 

if  (opstat.data_avail  M  opstat.data  written) 
opetat.data_avail  *  KALSE; 

rtd_n_revs  *  MAX_RT_REVS; 

printf("\033[2J\033[1;1H");  /*  Clear  Screen  and  Home  */ 

query i ("Station  for  real  time  display",  tstation,  1,  4); 
id  *  1  «  (station  *  1); 

query i ("Number  of  blades  to  be  displayed",  trtd_n_blades,  "",  1,  HAX_RT_BLADES); 

for  (i  *  0  ;  i  <  rtd_n  blades  ;  i+*)  { 
sprintf (prompt,  "Plot  Xd  blade",  i+1); 
queryi (prompt,  tbladeli],  "",  1,  n_blades); 


if  (opstat.taking_data)  { 

for  (i  *  sizeof(header.run_id)  -  1  ;  l  >=  0  ;  i--) 
if  (header. run_id[i]  1*  '  ') 
break; 

run  idti+1]  =  '\0'; 
while  (i  >*  0)  ( 

run  idti]  =  header. run  id[i]; 
i--7 

) 


static 

int 

auto 

int 

auto 

char 

auto 

char 

auto 

long 

register  long 

static 

char 

auto 

int 

register  int 

register 

int 

auto 

int 

auto 

long 

auto 

char 

auto 

long 

extern 

int 

auto 

long 

auto 

char 

auto 

long 

auto 

long 

extern 

long 

extern 

long 

extern 

long 

auto 

long 

auto 

long 

extern 

int 

extern 

int 

static 

char 

« 


for  (i  *  sizeof(header. excit  freq)  *  1  ;  i  >=  0  ;  i--1 
if  (header. excit_freq[i]  I*  '  ') 
break; 

excit_freq[i+1]  *  '\0'; 
whi le-(i  >*  0)  ( 

excit  freqti]  *  header. excit  freqli]; 

“ 

> 

)  else  { 

querys("Real  time  plot  I.D.",  run_id,  -sizeof(run_id),  ""); 
querys("Excititation  frequency",  excit_freq,  -sizeof(excit_freq),  ""); 


scrn_init(); 
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title(run_id,  station,  excit_freq); 
rt_init(blede); 


exit  *  FALSE; 
rangemax  *  0; 
do  ( 

get_date(date); 
get~time(time); 
if  (opetat. taking  data)  C 

start_rev  *  r3 _ptr  -  rd_start; 
revs_left  =  rd_end  -  rd_ptr; 
if  (revs_left  <=  (rtd_n_revs  +  2)) 
break f 

}  else  if  (opstat.data^avail)  { 

/*  «e  finished  taking  data  -  exit  */ 
break; 

}  else  { 

disableO; 
rd_ptr  *  rd  start; 

n  revs  ■  rt3_n_revs  ♦  2;  /*  since  first  rev  of  data  is  bed  */ 
r3_end  »  rd_start  *  n_revs; 
setup( station,  n_revs); 
enableO; 

start  rev  *  2;  /*  since  first  rev  of  data  is  bad  V 

) 

if  (scsi  sel(id))  { 

cdblfl]  =  REAL_TIME_DI SPLAY; 
cdbtl]  =  start_rev  »  16; 
cdb[2]  *  start~rev  »  8; 
cdb[3]  *  start“rev; 
cdb[4]  «  rtd_n“blades; 
cdblS]  »  rtd"n~revs; 
scsi_out (COMMAND,  cdb,  6); 

/*  send  the  blade  nuabers  V 


for  (i  *  0  ;  i  <  rtd_n_blades 
temp  *  blade(i); 
scsi  out(DATA  OUT,  Stemp, 
Mint!]  »  0x7f7fffff; 
max[i]  *  0; 


;  i++)  ( 
D; 


) 


sum  *  0; 

/*  get  the  data  V 
for  (i  *  0  ;  i  <  rtd_n_revs  ;  i»+)  { 
d  ptr  *  rd_start  +  start_rev  ♦  i; 
/•wait  fo?  1  ppr  */ 
while  (djatr  >»  rd _ptr) 


I 

sun  +=  *d_ptr; 


for  (j  *  0  ;  j  <  rtd_n_blades  ;  j++)  { 
djstr  =  SdatatjlTiT; 
scsi  in(DATA_IN,  d _ptr,  4); 
if  (¥d_ptr  <~mintjJ) 
min(j)  *  *d_ptr; 
if  (*d__ptr  >  maxtj]) 
maxtj]  *  *d _ptr; 
range  *  maxtj]  ■  mintjl; 
if  (range  >  rangemax) 
rangemax  3  range; 

) 

> 

1  scsi_in(STATUS,  ^status,  1); 

scsi~in(HESSAGE  IN,  *message_in,  1); 
if  (status  **  0T  { 

speed  *  (60  *  10000000)  /  (sum  /  rtd_n_revs); 
t.  update(speed,  date,  time); 

rt_plot(data,  rangemax,  min,  mx); 

>  else  ( 

printfCError  -  data  station  had  an  error\n"); 

) 

}  else  t 

printfCError  -  data  station  does  not  respond\n"); 

) 

/*  check  if  char  available  V 
while  (cpaKH,  0)  I*  0)  { 

/*  get  char  */ 
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c  *  cp«K1,  0>; 

printfC\033LZ");  /*  CLEAR  DIALOG  SCROLL  */ 
if  (c  «  '  ') 
rangemax  =  0; 

else  if  (c  **  '\r'  | |  c  ==  '\n') 
exit  *  THUCJJ 

) 

)  while  (I  exit); 

printf("\033\014");  /*  rALE  */ 

printf  C\0335£X!  1");  /*  Select  ANSI  mode  V 

) 

3.45  rtinit.c 

* - 

/*•*••*••*•••••••••••••••»*•*••••**•**•.*•**•***.•*.»**•••***.**»*.*», 

/* 

/*  rt  ini t 

/* 

/*  This  routine  sets  up  and  labels  the  screen  for  a  real  time  display 

/* 

iirtclude  <stdio.h» 

#include  "turbin.h" 

^include  "rt.h" 

rt_init(blade) 
int  bladel); 

{ 

register  int 
extern  int 
extern  int 
extern  int 
extern  int 
extern  int 
extern  int 
extern  int 
auto  int 

auto  int 

rtd  ystep  =  YSIZE  /  rtd  n_blades; 
rtd’ystart  =  YSIZE  -  (rtd_ystep  »  1)  +  YOFFSET; 
rtd_xstep  =  XSIZE  /  (rtd_n_revs  -  1); 
rtd~height  *  rtd^ystep  - ~2] ’ 
rtd~hd2  *  rtd_helght  »  1; 

x  =  XOFFSET  -  13; 
y  =  rtd_ystart; 

for  (i  =  0  ;  i  <  rtd_n  blades  ;  i++)  { 

/*  draw  border  *"/ 
cmdlxCLF"); 

:.y1x(XOFFSET,  y-rtd  hd2); 
cmdlxCLG"); 

xylxlXOFFSET,  y+rtd  hd2); 
cmdlxCLG"); 

xylxlXOFFSET  ♦  XSIZE,  y+rtd  hd2); 
cmdlxCLG"); 

xylxlXOFFSET  +  XSIZE,  y-rtd  hd2); 
cmdlxCLG"); 

xylxlXOFFSET,  y-rtd_hd2); 

/*  draw  0  line  */ 
cmdlxCLF"); 
xylxlXOFFSET,  y); 
cmdlxCLG"); 

xylxlXOFFSET  +  XSIZE,  y); 

/*  print  blade  nurfcer  */ 
cmdlxCLF"); 
xylxlx,  y  -  3); 
cmdlxCLT"); 
intlxlZ); 

printfCXZd",  blade(il); 


rtd_hd2; 
rtd“height; 
r td_n_b lades ; 
rtd~n~revs; 
rtd_xsfep; 
rtd“ystep; 
rtd~ystart; 

x;  “ 
y; 


V 

*/ 

*/ 

V 

V 

V 

V 


* 
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> 


y  -■  rtd_ystep; 


) 


3.46  rtplot.c 

* - 


/a*************************************************************.*************/ 

/*  V 
/*  rtplot  V 
/*  */ 
/*  This  routine  plots  the  real  time  data  on  the  screen  V 
/*  V 
/***•*•************••*•••••*•**•••*•******•*•**********•***•***••**••***•**•*/ 


//include  <stdio.h> 
//include  "turbin.h" 
//include  "rt.h" 


//define  move(x,  y)  cmdlxC'LF");  xy1x(x,  y>; 
/(define  drau(x,  y)  cmd1x(MLGM);  xy1x(x,  y); 


rt_plot(data,  rangemax,  min,  max) 
long  data [HAX_RT_BLADESJ WAX_RT_REVS) ; 
long  rangemaxj  ~ 
long  maxll; 
long  mini); 

{ 


auto  char  buffer[121; 

register  long  *d  ptr; 

auto  long  full_scale; 
register  int  i; 

register  int  j; 

auto  int  length; 

auto  long  mid; 

extern  int  rtd_hd2; 

extern  int  rtdjieight; 

extern  int  rtd~n  blades; 
extern  int  rtd“n“revs; 

extern  int  rtd“xstep; 

extern  int  rtcTystart; 

extern  int  rtd~ystep; 

auto  int  x; 

auto  int  ymid; 


full_scale  »  (rangemax  +  1)  »  1; 


ymid  -  rtd_ystart; 

for  (i  =  0  ;  i  <  rtd  n_blades  ;  i++)  { 

/*  update  fulT  scale  -  since  plot  above  clears  the  char  tops  */ 

/*  label  ♦/•  full  scales  */ 

moveCXOFFSET  -  61,  ymid  +  rtd  hd2  -  7); 

cmdlxCLT"); 

intlx(IO); 

printf(MX10dK,  full_scale); 

/*  clear  plot  area  */ 
c*d1x(MRR"1i 

xy1x(X0FFSET  +  1,  ymid  -  rtd  hd2  ♦  1); 
xy1x(X0FFSET  ♦  XS1ZE  -  1,  ymid  ♦  rtd_hd2  -  1); 
intlx(O); 


mid  *  (max[i]  *  min[i])  »  1; 
d_ptr  *  idatali]  (0) ; 

move(XOFFSET,  (*d_ptr++  -  mid)  *  rtd  hd2  /  full  scale  ♦  ymid); 
x  *  XOFFSET ; 

for  (j  *  1  ;  j  <  rtd_n_revs  ;  j»+)  { 
x  **  rtd_xstep; ~ 

draw(x,  (*d_ptr++  -  mid)  *  rtd  hd2  /  full  scale  +  ymid); 

) 


/*  draw  base  line  */ 
move(XOFFSET,  ymid); 
draw(XOFFSET  +  XSIZE,  ymid); 
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move(XOFFSET  -  67,  yisid  -  rtd  hd2>; 

cmd1x("LTM); 

intlx(ll); 

pHntf("X11d",  -full_scale); 


) 


) 


ywti  d  -*  rtd_ystep; 


3.47  scrnin.c 

* - 

scrn  ini t() 

( 

/*  Clear  text  screen  */ 

pr  i nt  f < "\033 12 J  K ) ; 

/•  select  TEK  mode  */ 

printf("\033XXl0"); 
cmdlxCRW"); 
xy1x(0,  0); 
xy1x(479,  359); 

/*  Set  GRAPHTEXT  size  V 

cmdlxO'MC"); 

int1x(5); 

int1x(7); 

int1x(6); 

/*  Set  Graphics  Area  Writing  Mode  */ 

cmdlxO'MG"); 

intlx(O); 

> 


3.48  setdat.c 

* - - — - - 

/*  this  subroutine  sets  the  date  portion  of  the  real  time  clock  */ 

set_date(date) 

char  "date; 

{ 

unsigned  char  buffert13]; 
int  day; 
int  month; 
int  year; 

clock_r(buffer); 

day  *~(buffer[8]  t  0x03)  *  10  ♦  buffer [7); 

month  =  (buffer  110)  &  0x01)  *  10  +  buffer [9]; 

year  =  buffer [12]  *  10  *  buffertll); 

queryi("Year",  Xyear,  "M,  0,  99); 

queryi ("Month",  tmonth,  1,  12); 

queryiC'Day",  May,  1,  31); 

clock_r(buffer); 

buffer  (12)  *  year  /  10; 

buffer(ll)  «  year  X  10; 

buffer  CIO]  ■  month  /  10; 

buffer [9]  *  month  X  10; 

buffer [8]  *  day  /  10; 

buffer [7]  »  day  X  10; 

clock  w(buffer); 

) 

3.49  settim.c 

* - 

/*  this  subroutine  sets  the  time  portion  of  the  rest  time  clock  */ 

set_time(time) 

char  "time; 

( 

unsigned  char  buffer [13]; 
int  hour; 
int  minute; 
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clock  r(buffer); 

hour  *  (buffer £5)  l  0x03)  *  10  +  buffer [41; 

minute  *  (buffer£3J  (  0x07)  *  10  ♦  buffer £2] 

queryiCHour",  (hour,  0,  23); 

queryi("Winute",  (minute,  0,  59); 

clock_r(buffer); 

buffer [5]  1  hour  /  10  +  0x0c; 

buffer!*]  *  hour  X  10; 

buffer£3]  *  minute  /  10; 

buffer £2)  *  minute  X  10; 

bufferll]  *  0; 

buffer [01  *  0; 

clock  u(buffer); 

) 


3.50  setup. c 

★ - 

#i ncludc  "scsi.h" 

setup(station,  n_revs) 
int  station; 
long  n  revs; 

{ 

char  cdb£6]; 
int  id; 

char  message_in; 
extern  int  n_blades; 
char  status; 

cdb£01  «  SETUP; 
cdbEll  *  n_blades; 
cdb£2]  *  n^revs  »  16; 
cdb(3]  *  n^revs  »  8; 
cdb£4]  *  n”revs; 
cdb£5]  *  Oj 

id  »  1  «  (station  -  1); 
if  (scsi  sel ( id) )  { 

scsi  out (COWHAND,  cdb,  6); 
scsi_in(STATUS,  (status,  1); 
scsi  in(MESSAGE  IN,  (message  in,  1); 

> 

) 


3.51  strlx.c 


finclude  <stdio.h> 

^define  putchar(c)  fputc(c,  stdout) 

strlxden,  string) 
int  len; 
char  ‘string; 

( 


> 


intlx(len); 
while  (len  >  0)  C 

putchar(*string); 

strings; 

) 


3.52  takeda.c 


# include  <stdio.h> 

^include  "turbin.h" 

take  dotaO 
£ 

auto  cher  datellO]; 

extern  struct  HEADER  header; 

extern  struct  0PSTAT  ope  tat; 

register  int  i; 

auto  long  max  revs; 

extern  int  n_bTades; 
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static 

long 

n_revs; 

extern 

int 

notations; 

auto 

char 

prompt  [39]  ; 

extern 

long 

*rd_end; 

extern 

long 

*rd_ptr; 

extern 

long 

*rd_start; 

auto 

char 

time [9] ; 

header. mex_speed  *  0; 
header. min_speed  =  65535; 
header. ave_speed  =  0; 


max_revs  *  (SLAVEJtEMSIZE  >:■  2)  /  n_blades  -  1; 
printf("\033t2J\033[1;1H");  /*  Clear  screen  and  home  */ 
sprintfc prompt,  "Munber  of  revolutions  (1  to  Xld)",  max_revs); 
queryl (prompt,  4n_revs,  1L,  max_revs); 
header. n_revs  *  n_revs; 

querysC'Run  I.O.",  header. run_id,  sizeof(header.run_id),  ,l"); 

querytC'Run  description",  header. run_des,  sizeof(header.run_des)); 

querysC'Excitation  frequency",  header. excit_freq, 
sizeof(header.excit_freq),  "Hz."); 

get_date(date); 

strncpy(header.date,  date,  9); 
get_time(tfme); 

strncpyOieader.time,  time,  8); 

rd_end  *  rd  start  +  n_revs; 
rdjjtr  *  rd“start; 

disableO; 

for  (i  =  1  ;  i  <=  n_stations  ;  i++)  { 
setup(i,  n  revs)f 

) 

enableO; 


opstat.talcing_data  *  TRUE; 
opstat.data_avail  =  FALSE; 
opstat.data-written  *  FALSE; 

> 

3.53  tapein.c 

*— — — ——— ————————————————————— - - — — — — — — — — — — —— — — ——————— - * 

^include  <stdio.h> 

# include  “vme402.h" 


tape  ini t() 

C 

extern  char  last_op; 

*TAPE_CONTROL_$TATUS_0  *  Oxee; 
last_op  *  0; 


> 

3.54  tapevr.c 

* - — - - _____ — ______________ — _________ — * 

#include  <stdio.h> 

#include  "vme402.h" 

#def ine  FALSE  0 
#def ine  TRUE  1 
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tape_write(buffer,  length) 
char“buffer(l; 
int  length; 
l 

register  short  *d»e_#ddr; 

register  short  *<taa~deta; 

register  int  error; 

extern  cher  last_op; 

register  int  status; 

static  short  wchaintS]; 

error  =  FALSE; 

status  *  *TAPE_CCNMANO.  STATUSJ; 

if  ((status  A  ROY)  !*  0)  { 

printf("ERR0R  -  Transport  not  ready\nH); 
error  =  TRUE; 

}  else  if  ((statue  ft  OML)  I*  0)  { 

printf("ERROR  *  Transport  off  line\n“); 
error  *  TRUE; 

}  else  if  ((status  ft  RUD)  **  0)  { 
printf("ERROR  *  Busy  rewinding\nM); 
error  *  TRUE; 

)  else  if  ((status  ft  FPT)  *«  0)  < 

printf ("ERROR  •  Tape  write-protected\n"); 
error  »  TRUE; 


if  (1  error)  { 

if  (last  op  «  WRITE)  { 

/*  wait  for  'Hot  in  Data  Transfer  Mode'  */ 
while  ( (*TAPE_COHTROL_STATUS_0  A  DBY)  »  0) 

)  else  ( 

/*  wait  for  'Formatter  not  busy'  */ 
while  ( (*TAPE_CONTROL_STATUS_0  A  FBY)  «  0) 


status  =  *T  APE_C0N  TR0L_ST  ATUS_0 ; 

if  ((status  ft  0L0ST)  «  0  &i  (last  op  «  WRITE))  { 
printf("ERR0R  -  Data  lost  during  R/W\n">; 
error  *  TRUE; 

) 

if  ((status  ft  EOT)  !*  0  ftft  (last  op  =*  WRITE))  ( 
printf ("ERROR  -  End  Of  Tape  3etected\n"); 
error  *  TRUE; 

) 

if  (I  error)  { 

/*  set  up  dma  controller  */ 
dna_addr  «  0MA_ADDR; 
dma~data  *  DMA~DATA; 

*(ina_addr  *  CRj 

*dma~data  *  0x00;  /*  Reset  DMA  controller  */ 
wchaTntO]  ■  0x0382;  /*  register  load  mask  */ 

wchainll]  *  (((short)((long)TAPE  DATA  »  8>>  ft  OxffOO)  |  0x10; 
wchaint2]  *  (short)TAPE  DATA, 

wchain(3I  *  (((shortX(Tong)buffer  »  8))  ft  OxffOO)  |  0x40; 
wchainlA]  *  (short)buffer; 
wchainlS]  *  length; 

wchain(6]  ■  0x0000;  /*  Channel  mode  31:16  V 

wchain(7]  «  0x0051;  /*  Channel  m-xie  15:00  */  /*  Bus  Release  */ 

wchain[7]  «  0x0031;  /*  Channel  mode  15:00  V  /*  Bus  Hold  */ 

*daa_addr  ■  HMR; 

*ckna_data  ■  0x07; 

*cina“addr  *  ChAR_H  1 ; 

*dna~data  ■  (shortX(long)wchein  »  8)  ft  OxffOO; 

•ctowTaddr  *  ChAR_LO; 

*cWdata  »  (short)wchain; 

*<*ne“addr  ■  CR; 

*<iae~deta  *  OxeO;  /*  enable  DMA  transfer  */ 

/*  send  write  comnand  to  tape  drive  */ 

*TAPE_COMNAND  STATUSJ  «  WRITE ; 
last_op  *  WRITE; 


43 


/*  wait  for  'In  Data  Transfer  Mode'  */ 
while  «*TAP€_CONTROL_STATUS_0  t  D8Y)  I*  0) 

I 

> 

} 

> 

3. 55 

* - * 

title(run_id,  station,  excit  freq) 
char  *runjd; 
int  station; 
char  *excit  freq; 

{ 

cmdlxCLF"); 
xy1x(0,  360-8); 
cmd1x("LT«); 
int1x(54); 

printf("X16s  Station-Xld  X5s  Hz  RPM",  run  id,  station, 

excit  freq); 

} 

3.56  turbin.c 

* - * 

^include  <stdio.h> 

#include  "turbin.h" 

mainO 

( 


extern 

long 

memory; 

register  int 

c; 

extern 

int 

cpm(); 

extern 

struct  HEADER 

header; 

auto 

long 

i; 

auto 

long 

old_rev; 

extern 

struct  OPSTAT 

op6tat; 

auto 

long 

rd  base; 

extern 

long 

*rd“end; 

extern 

long 

•rdjstr; 

extern 

long 

*rd_start 

auto 

long 

rd_total 

auto 

long 

rev; 

extern 

void 

r_isr(); 

auto 

unsigned  int 

speed; 

auto 

int 

ujxlated; 

*((long  *)(VECT0R  *  4))  *  ( long)(Ar_isr); 

ini t_port(VECTOR); 

tape_init(); 

printf("\033XX!1«);  /*  Select  ANSI  mode  V 
change!) ; 

op6tat.data_avail  *  FALSE; 
opetat.data“written  *  FALSE; 
op6tat.taking_data  *  FALSE; 

for  (;;)(. 
updated  *  FALSE; 

printf("\033XXI 1H);  /*  Select  ANSI  mode  V 
printf("\033[2JM);  /*  Clear  Screen  */ 
printf("\033U;7H\033#3NSMS  Oata  Acquisition  System*1); 
printf ("\033I2;7H\033#4NSMS  Data  Acquisition  System"); 
printf(M\033C10;20HC  *  Change  Date  /  Time  /  Specimen  Data"); 
printf("\033I12;20HD  *  Discard  Data"); 
printf("\033C14;20HH  «  Histogram"); 
printf ("\033t16;20HR  *  Real  Time  Display"); 
printf("\033(18;20HS  »  Start  Taking  Data"); 
printf("\033I20;20HU  *  Write  Data  To  Tape"); 
pr  i nt f ( "\033 (22; 20H" ) ; 

if  (op«tat.taking_data  ||  opstat.data_avai l )  ( 
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printf(“\033 [4;20Hfievoluition  of  Xd*\  header. n_revs); 

if  (opatat. taking  data) 

printf("\033(6;20H  Current  Mini  HU*  Maximum**); 

else 

printf("\033[6;20H  Average  Minimus  Maximum"); 

printf("\033[7;20H  . "); 

printf(“\033[8;20HSpeed  :  RPM"); 

while  (cpsKH,  0)  **  0)  { 
if  (opstat. taking_data)  < 
rev  *  rdjjtr  --rd_start; 
if  (rev  1=  old  rev)  { 

printf("\0j3(4;3lHX6ld",  rev); 
old  rev  *  rev; 
if  Trev  >  2)  C 

speed  *  (60  *  10000000)  /  *(rd  start  +  rev  -  1); 
pr i nt f ( " \033 [8; 28HX7u" ,  speed); 
if  (speed  <  header. min_speed)  ( 
header.min  speed  =-speed; 
printf("\033(8;38HX7lu",  header. mi n_speed); 

if  (speed  >  header. max_speed)  { 
header .max  speed  »”speed; 
printf("\Q33[8;48HX7lu",  header. max  speed); 

> 

> 

> 

> 

if  (opstat.data  avail  &&  (header. ave_speed  **  0))  ( 
rd_total  *  5; 
rd'bsse  *  rd_start[1]; 
for  (i  *  1  ;  i-<  header. n_revs  ;  i++) 

rd_total  *  rd  total  +""rd  start  [i]  -  rd  base; 
heads?. eve  speed"*  (60  *  IdflOOOOO)  /  (rd  "total  /  (header. n  revs-1)  ♦  rd  base) 
updated  *  FALSE;  ~  ” 

) 

if  (I  updated  U  (opstat.data  avail  ||  opstat. taking  data))  { 
if  (header. ave  speed  I*  0)*"{ 

printf("\0j3[6;20H  Average  Minimum  Maximum"); 

printf("\033[8;28HX7lu",  header. ave  speed); 
printf("\033(A;31HX6ld",  header.n_revs); 

printf("\033[8;38HX7lu",  header.min  speed); 
pr i nt f ( "\033 (8; 48HX7 l u" ,  header .max~speed) ; 
updated  -  TRUE; 

> 

) 

while  (cpmdl,  0)  1=  0)  { 

c  *  cpm(1,  0):  ■»h. 

if  (c  *«  'C*  ||  c  **  'c') 
changed; 

else  if  (c  **  '0'  ||  c  **  'd')  < 
if  (opstat.data  avail)  ( 

printf("\035(2J\033(1;1H">; 

if  (query("Are  you  sure  you  want  to  discard  data")) 
opstat.data  avail  *  FALSE; 

) 

)  else  if  (c  **  'H'  ||  c  *«  'h')  C 

if  (I  opstat. dsta_avai l  ||  opstat. data_written) 
histogramO; 

)  else  if  (c  **  'R'  ||  c  **  'r')  { 

if  (I  opstat .data_avai l  ||  opstat. data_written) 
real_time  di splay O; 

)  else  if  (c  **"7S'  ||  c  *■  's')  { 

if  (I  opstat.data  avail  ||  opstat.data  written) 
take_data(); 

)  else  if  (c  **  'U'  ||  c  **  'w') 
if  (opstat.data  avail) 
write  data(); 

) 

) 

> 

3.57  tvfn.c 


/«  Write  File  Mark  */ 
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# include  "v»e402.h" 
t  wfm() 

c 

register  char  ‘status  0; 
extern  char  last_op; 

*TAPE_CONTROL_STATUS_0  *  Oxee; 

/*  check  for  'Tape  not  write-protected'  */ 
if  ((‘TAPE  C0NNAN0  STATUS  1  t  FPT)  1*  0)  { 
8tatus_0  *  fAPE_CONTROL_STATUSJ); 

/*  wait  for  'Formatter  not  busy'  */ 
while  <(*status_0  &  FBY)  =*  0> 

last_op  *  T_WFM; 

/*  send  comnand  to  tape  drive  •/ 
*TAPE_COMMANO  STATUS  1  =  T  WFH; 

)  . 

> 

3.58  updata.c 


update(speed,  date,  time) 
unsigned  int  speed; 
char  ‘date; 
char  ‘time; 

cmdlxCLF"); 
xy1x(45  *  6,  360-8); 
cmdlxCLT"); 
int1x(54); 

printf("X5u  RPM  X9s  %8s",  speed,  date,  time); 

> 

3.59  writed.c 


#include  <stdio.h> 
#include  "turbin.h" 
#include  "scsi.h" 
^include  "vme402.h" 


#define  BLOCKS I ZE  512 

(Udefine  BSD4  (BLOCKSIZE  »  2) 


write  data() 

r  ~ 

\ 

auto 

tong 

buffer  12] [BSD4] ; 

auto 

int 

block; 

auto 

char 

cdb[6]; 

register 

long 

*d  start; 

register 

long 

•djstr; 

auto 

int 

error; 

auto 

int 

exit; 

auto 

int 

extra; 

extern 

struct  HEADER  header; 

extern 

struct  OPSTAT  opstat; 

register 

int 

i; 

register 

int 

j; 

register 

int 

k; 

auto 

int 

last_length; 

auto 

int 

length; 

auto 

char 

message_in; 

auto 

int 

n_blocks; 

auto 

long 

nj»ints; 

extern 

long 

*rcl_end; 

extern 

long 

*rd~start; 

register 

long 

•s_ptr; 

auto 

char 

status; 

auto 

int 

status  1; 

auto 

char 

strirvgT211 ; 

printf(M' 

\03312J\033H 

i  1H“); 
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do  { 

exit  *  FALSE; 

if  ({‘TAPE  CMHAND_STATUSJ  t  NRZ)  **  0)  C 

printf?"Waming  -  tape  not  set  at  1600  bpi\n">; 
if  (I  query("0o  you  want  to  continue")) 
exit  >  TRUE; 

) 

error  *  FALSE; 

status  1  «  "TAPE  COHHAMD  STATUS  1; 
if  ({statusj  l  ?PT)  «  B)  { 

printf("Error  -  tape  is  write  protected\n"); 
error  *  TRUE; 

> 

if  <(status_1  t  RUD)  *=  0)  < 

printf("£rror  -  tape  is  busy  rewinding\n"); 
error  *  TRUE; 

> 

if  ((statusj  t  OWL )  I*  0)  ( 

printf("Error  -  transport  is  off  line\n"); 
error  ■  TRUE; 

} 

if  ((statusj  t  ROT)  I*  0)  { 

printf("Error  -  transport  is  not  ready\n"); 
error  «  TRUE; 

> 

if  (error  M  query("0o  you  want  to  exit")) 
exit  *  TRUE; 

)  while  (error  U  1  exit); 
if  (I  exit)  { 

printf ("Writing  header\n"); 

s_ptr  =  theader; 

d_start  *  buffer; 

dj>tr  ■  d  start; 

for  (i  ■  B  ;  i  <  BSD4  ;  i++) 

*d_ptr++  «  *s ptr+*; 

/*  first  part  of  Header  is  32  longs  -  reverse  for  VAX  */ 

reverse(d  start,  32); 

tape_wr i te(d_s tar t ,  BLOCKS I ZE); 

printf("Writing  revolution  times\n"); 

block  =  0; 

for  (s_ptr  *  rd_start  ;  s _ptr  <  rd_end  ;  )  { 
block**; 

printf(MXd\r",  block); 

/*  switch  to  other  buffer  */ 

d_start  *  IbufferlOHO)  *  BSD4  •  (d_start  -  ibufferlOHO)); 
djstr  *  d  start; 
for  (i  *  B  ;  i  <  BSD4  ;  i*+) 
if  (s  ptr  <  rd_end) 

*3_ptr+*  *~*s_ptr++; 

else 

*d_ptr++  =  0; 
reverse(cTstart,  BS04); 
tape_write(d  start,  BLOCKSIZE); 

> 

n  points  «  header. n_revs  *  header. n_blades; 
njlocks  *  n  points-/  BSD4; 
extra  *  n_poTnts  *  n_blocks  *  BS04; 
if  (extra  *■  0)  { 

lastjength  *  BLOCKSIZE; 

)  else  { 

last_length  *  extra  «  2; 
n  blocks  *  n  blocks  +  1; 

) 

cdblO)  »  RECEIVE; 

cdbtl)  *  0; 

cdbt2I  =  0; 

for  (i  «  0  ;  f  <  header. n_stat ions  ;  i**)  { 

printf("Uriting  blade-ti»»e!  for  station  Xd\n",  i  +  1); 
cdb[3)  *  BLOCKSIZE  »  8; 
cdb[4]  *  BLOCKSIZE; 

cdblS]  ■  0x80;  /*  reset  the  receive  data  pointer  */ 
length  '  BLOCKSIZE; 
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for  (j  *  1  ;  j  <=  n_blocks  ;  j*+)  { 
printfCXdXr’',  jf; 
if  <j  «»  n_blocks)  { 

length-*  last_length; 
cdb[3)  *  length  »  8; 
cdb[4]  »  length; 

> 

if  (scsi_sel(1  «  i))  { 

d  start  =  (buffer [0][0]  +  8S04  -  (d  start  -  (buffer [0]  10] ); 

scsi_out( COMMA NO,  cdb,  6); 

scsi~in(DATA_IN,  d  start,  length); 

scsiJn(STATUS,  (status,  1); 

scsi~in(MESSAGE  JN,  (message_in,  1); 

if  (7  =*  n  btocEs) 

for  (k  *  (last_length  »  2)  ;  k  <  BSD4  ;  k++) 
d_start[k]-*  0; 
reverse(d_start,  8SD4); 

tape  write(d_start,  BLOCKSIZE); 

cdb[5]  *  0;  7*  don't  reset  the  receive  data  pointer  */ 

> 

) 

> 

t_wfm();  /*  write  file  mark  */ 
ops tat. data  written  =  TRUE; 

) 

> 

3.60  xylx.c 

* - * 

#inctude  <stdio.h> 

ifdefirte  putchar<c)  fputc(c,  stdout) 

xylxlix,  iy) 
int  ix; 
int  iy; 

{ 

int  keb,  khix,  khiy,  klox,  kloy; 

khiy  *  (iy  »  7)  +  32; 

keb  »  (iy  (  0x03)  *  4  +  (ix  (  0x03)  +  96; 

kloy  x  ((jy  »  2)  »  0x1 f)  +  96; 

khix  x  (ix  »  7)  +  32; 

klox  =  ((ix  »  2)  (  Oxlf)  +  64; 

putchar(khiy); 

putchar(keb); 

putchar(kloy); 

putchar(khix); 

putchar(klox); 

> 
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SLAVE  PROGRAM  SOFTWARE  LISTING8 


4.1  a. a 

* - * 

.globl  id 

.long  0x001000 
.tong  slave 


id: 

.byte  1 
.even 

4.2 

A-*-- 

badcom.s 

.globl  bad_command 

bad_command: 

moveq.l  #2,d0 

move.l  d0,sense_data 

rts 

4.3 

badexo.s 

- - — — - — — - — — * 

AmZ8536=0xfe0000 

.globl  bad_exception 
bad_exception: 

bset  #3,AmZ8536+3  *  turn  on  FAIL  led 
rte 


4.4  bladal.s 


*  blade_isr 

*  This  interrupt  service  routine  handles  the  blade  interrupts 

*  At  12000  RPM  (200  RPS)  with  70  blades  interrupts  will  occur 

*  approximately  every  71  microseconds. 

gmsv04=  OxfffOOO 

port2=  0x040 
port3=  0x080 
debug=  0x100 

pbcr=  0x0e+1 
padr=  0x10+1 
pbdr=  0x12+1 
pcdr=  0x18+1 

.globl  blade_fsr 

blade_isr: 

move*. I  d0/a0,-(sp)  *  24 

lea  gmsv04,a0  *  12 

uove.b  port3+pbdr(aO),dO  *12 

andi.u  #0x000f,d0  *  8 

swap  dO  *  4 

movep.w  port2+padr(a0),d0  *  16 

move.  I  blade  ci_ptr,a0  *  16 

move. I  dO,(aU)+  *  8 

move. I  aO,blade_d  ptr  *  16 

cmp.l  blade  d  end, aO  *  22 

*  blo.s  If  *  10 

bcs.8  If  *  10 

*  clear  interrupt  enable 
bclr  #1,gmsv04+port2+pbcr 

1:  move*.  I  (sp)+,d0/a0  *  28 
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rte 


*  24 
200 

*  interrupt  processing  time  46 

*  _ 

*  total  interrupt  service  time  246  cycles  =>  24.6  microseconds 

4.5  dispat. s 


dispetch 

call  with: 

dO.b  *  commend  byte 


.globl  dispetch 
dispatch: 

lea  bad  commend, aO 
and.w  #0x50ff,d0 
Isl.u  *2,d0 
cmpi.w  #table  size.dO 

*  bhs.s  If 
bcc.s  If 

lea  table, aO 

moves. I  0(a0,d0.w),a0 

1:  jsr  (aO) 

rts 

table:  .long  bed_commend 
.long  bed~command 
.long  histogram 
.long  reauest_sense 
.  long  bed_coemend 
.  long  badcommend 
.  I ong  real_t i me_di splay 
.long  bad_coamand 
.long  receive 
.long  setup 
.long  send 
table_size*  .-table 

4-6  gatl.s 

*  - * 

* 

*  getl  -  get  1  byte  from  the  scsi  port 

* 

*  returns: 

*  dO.b  *  byte  from  scsi 

* 

SCSI*  0xfe0300 

Current_Oata=  SCSl»0+0+1 
Target  Commend*  SCSI+3+3+1 

Bus_an3_Status*  SCSI+5+5+1 

ASSERT_REQ~=  3 

ACK-=  0 

.globl  getl 

getl:  bset  #ASSERT_REQ-,Target_Commend 

1:  btst  #ACK-,Bus_end_Status 

beq.s  1b 

move.b  Current_Data,d0 

bclr  #ASSERT_REQ-,Target_Command 

2:  btst  #ACK-,Bus_and_Status 

bne.s  2b 
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4.7 

* — 
* 

* 

* 

* 

★ 

* 


get2: 


4*8 

*  — 
* 

* 

« 

* 

* 

* 


get3: 


4.9 
*  — 
* 

* 

* 

* 

* 

* 


getA: 


rU 

9«t2 . s 

get2  •  get  2  bytes  from  the  scsi  port 
returns: 

dO.w  *  byte  1  :  byte  2  from  scsi 
.globl  get2 
bsr  getl 
Isl.w  #8,(10 
bsr  getl 
rts 

gat3 . s 

get3  -  get  3  bytes  from  the  scsi  port 
returns: 

dO.l  *  0  :  byte  1  :  byte  2  :  byte  3  from  scsi 

.globl  get3 
clr.w  dO 
bsr  getl 
suap  dO 
bsr  get2 
rts 

get4.s 

get4  *  get  4  bytes  from  the  scsi  port 
returns: 

dO.l  *  byte  1  :  byte  2  :  byte  3  :  byte  4  fro.  scsi 

.globl  get4 
bsr  get2 
suap  dO 
bsr  get2 
rts 


4.10  g«tn.8 


*  getn  -  get  n  bytes  fro.  the  scsi  port  into  a  buffer 

* 

*  call  with: 

*  dO.l  =  nuifcer  of  bytes 

*  aO  ->  buffer 

* 

SCSl=  0xfe0300 

Current_0ata«SCSl+0>0+1 
Target_Coemand*  SCSI+3+3+1 
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Bus_and_Statua*  SCSI+5+5+1 
ASSERT_REO~*  3 
ACK~=  0 


.globl 

getn 

getn: 

beet 

#ASSERT_REQ~, Target_Command 

1: 

btst 

#ACK-,Bus  and  Status 

beq.t 

1b 

move.b 

Current_Data, (a0)+ 

bclr 

#ASSERT_REQ~, Target_Conwand 

2: 

btst 

#ACK~,Bus  and  Status 

bne.s 

2b  “  “ 

subq.l 

#1,d0 

bne.s 

rts 

getn 

4.11  histog.s 

* - 

*  histogram 

* 

*  0:0=  command  byte 

*  1:3*  start  rev  # 

*  4:5*  number  of  revs 


data  bytes  are  as  follows: 


0 

4 

8 

8  *  n  +  4 
8  *  n  +  8 


3  =  rev_time  for  start  rev  •  1 
7  =  rev~time  for  start  rev 
11  *  2A47  /  rev_time  for  start  rev 
8  *  n  ♦  7  =  rev  time  for  start  rev  +  n 
8  *  n  +  11  =  2A47  /  rev_time  for  start  rev  +  n 


for  n  *  1  to  number  of  revs 


SCSI*  0xfe0300 


Target_Command=  SCSI+3+3+1 

Data_0ut=  0 

Data  In=  1 


.globl  histogram 

aO  ->  minmax_buffer 
al  ->  data 

dl  =  2A47  /  rev_time 
d6  =  blade  counter 
d7  =  rev  counter 


histogram: 

*  get  start  rev  #  into  dO.l 
bsr  get3 

*  ire, '  tiply  by  nuifcer  of  blades 
move.u  tiO, c6 

swap  dO 

*  now  start  rev  is  split  into  dO.w  :  d5.w 
mulu  n_blades,dO 

mulu  n-blades,d5 
swap  dC 
clr.w  dO 
add. I  d5,d0 

*  times  4  for  long 
tsl.l  #2,d0 

lea  memory,  al 
add. I  35, al 

*  get  nuiber  of  revs 
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bar  get2 
move.w  dO,n_h_revs 

move.w  n  blades.dO 
subq.w  #2,d0 
Move.w  d0,nbm2 

initialize  minmax  buffer 
move.  I  #0x7fffffff,d5 
lea  minmex_buffer,aO 
move.w  n  blades, dO 
subq.w  #T,dO 
move. I  d5,(a0)+ 
clr.l  (aO)-*- 
dbf  dO,Ob 

move.b  *D  a ta_Out, Target -Command 

get  rev  time  for  rev  before  start  rev 

bar  get* 

move. I  dO,rev_time 

move.w  n  h  revs,o7 

subq.w  #T,37 

lea  minmax_buffer,aO 

check  first  blade  for  back  dither 

move. I  (a1)*,d5 
cmp.l  (a1),d5 
bis. s  2f 

correct  for  back  dither 

sub.  I  rev_tisiefd5 

bar  get4 
move.  I  dO,rev_time 
get  2*47  /  rev_time 
bsr  get4 
move. I  d0,d1 

move. I  d5,d0 
bsr  minmax 

move.w  nbm2,d6 
beq.s  4f 

subq.w  #1,d6 
move.t  (a1)+,d0 
bsr  minmax 
dbf  d6,3b 


check  last  blade  for  forward  dither 

move. I  (a1)*,d0 
cmp.l  -8(a1),d0 
bhs.s  5f 
bcc.s  5f 

correct  for  forward  dither 

add.  I  rev_time,dO 
bsr  minmax 

dbf  d7,1b 

move.b  M)ata_ln, Target-Command 

lea  mirmx_buffer,aO 
move.w  n  blades, d5 
subq.w  #T,d5 
move. I  (aO)+,dO 
sub. I  dO,(aO) 


bar  putn 
dbf  cB,7b 

clr.l  sent*  data 
ctr.b  dO 

rts 

•  be* 


nbm2:  .*.+2 
nji^revs:  .*.+2 
recTp:  .*.+4 
rev  time:  .*.+4 


4.12  sinnax.s 


ininmax 

call  with: 

eO  ->  minmax  buffer 

dO  *  new  data 

dl  ■  2A47  /  rev_time 

updates: 

aO 

destroys: 

d0/d2-d5/a2 

•globl  minmax 


minmax:  bra.s  2f  *  temporarily  skip  scaling  operation 


move. 

l  d0,a2 

tst.l 

dO 

bpl.s 

If 

neg.t 

dO 

1: 

move. 

wd0,d5 

* 

4 

swap 

dO 

* 

4 

move. 

wd0,d2 

* 

4 

move. 

wd1,c6 

* 

4 

swap 

dl 

* 

4 

move.w  d1,d4 

* 

4 

swap 

dl 

w 

A  =  d2.w 

AB 

* 

8  *  d3.w 

x  CO 

* 

C  *  d4.w 

.... 

* 

D  =  d5.w 

BO 

* 

AD 

BC 

* 

AC 

move. 

wd5,d0 

* 

4 

mulu 

d3,d5 

* 

40 

mulu 

d4,d3 

* 

40 

mulu 

d2,dO 

* 

40 

mulu 

d4,d2 

* 

40 

move. 1  d0,d4 

* 

AC  * 

d2.l 

* 

BC  * 

d3.l 

* 

AD  * 

d4.l 

* 

BO  = 

d5.l 

move. 

l  d4,d0 

swap 

dO 

clr.w  dO 

add. 

d0,d5 

move. 

l  d4,d0 

clr.v 

dO 

swap 

dO 

addx. 

l  d0,d2 

move 

l  d3,d0 

swap 

dO 

clr.w  dO 

add. 

d0,d5 

move 

l  d3,d0 

clr.v 

dO 

swap 

dO 

* 
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addx.l  dO,d2 

*  <12.1  :  <6.1  *  product  (0  to  2A47) 
move.w  d2,d0 

swap  dO 
swap  <6 
move.w  <C,dO 

*  do. I  *  product  »  16 
stove.  I  e2,d2 

bpl.s  2f 
neg.l  dO 

2:  cnp.l  (aO)+,dO 

bge.8  3f 
move.  I  d0,-4(aG) 

3:  cmp.l  (a0)+,d0 

ble.s  4f 
move.  I  <10,-4(80) 

4:  rts 


4.13  putl.S 

* - 


*  putl  -  put  1  byte  to  the  scsi  port 

*  call  with: 

*  dO.b  *  byte  to  be  output  to  scsi 

* 

SCSl=  0xfe0300 


Current_Date« 

Ini  t  i  ator_Com*and« 
Target  Command* 

Bus  and  Status* 


SCSI +0+0+1 
SCSI+1+1+1 

SCSI +3+3+1 
SCSI+5+5+1 


ASSERT_DATA_BUS*  0 


ASSERT_REO~*  3 

ACK~=  0 


.globl  putl 

putl:  bset  #ASSERT_DATA_BUS,Initiator_Co*mand 
move.b  dO,Current_Oata 
bset  #ASSERT_REQ-,Target_Comnand 

1:  btst  #ACK~,BU8_and  Status 

beq.s  1b 


bclr  #ASSERT_REQ~,Target_Command 

2:  btst  #ACK-,Bus_and  Status 

bne.s  2b 

bclr  #ASSERT_OATA_BUS,lnitiator_Command 
rts 


4.14  putn.a 


*  putn  -  pot  n  bytes  from  a  buffer  to  the  scsi  port 

* 

*  call  with: 

*  dO.l  *  neuter  of  bytes 

*  aO  ->  buffer 

* 

SCS!=  0xfe0300 


CurrentJJata* 

I  ni  t  i  ator_Command» 
Target  Comma ncH 
Bus_an3_Status* 


SCSI+0+0+1 

SCSI+1+1+1 

SCSI +3+3+1 
SCSI+5+5+1 


* 


* 
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ASSERT  JJATAJUS*  0 
ASSERT_REQ~=  3 


ACK-= 

0 

.globl 

putn 

putn: 

beet 

#ASSERT_DATA_BUS, Ini tiator_Comnand 

1: 

move.b 

(a0)+, Current _Data 

bset 

#ASS£RT_REQ~,Target_Command 

2: 

btst 

beq.s 

#ACK-,8us  and  Status 

2b  “ 

bclr 

#ASS£RT_RE0~ , T arge t_Conr»nd 

3: 

btst 

bne.s 

#ACK~, Bus  and  Status 

3b  “  " 

subq.l 

bne.s 

#1,d0 

1b 

bclr 

#ASSERT_DATA_BUS , I ni t i 8tor_Command 

rts 

4.15  realtl.s 

* - 


rea l_t i me_di splay 

0  :  0  *  command  byte 
1:3*  start  rev  # 
4:4=  number  of  blades 
5:5=  nurber  of  revs 


data_out  bytes  are  the  blade  numbers 

data_in  bytes  are  as  follows: 

0  :  3  =  first  selected  blade  time  for  start  rev 
4:7=  second  selected  blade  time  for  start  rev 


x  :  x+3  =  first  selected  blade  time  for  start  rev  +  1 
x+4  :  x+7  =  second  selected  blade  time  for  start  rev  ♦  1 


MAXBIADES=  70 


SCS!=  0xfe0300 


Target_Conrnand=  SCSl+3+3+1 

Data_0ut=  0 

Data~In=  1 


.globl  rea l_time_di splay 

real_time_display: 

move. w  n  blades, dO 
Isl.w  #2,d0 
move.w  d0,nbt4 

*  get  start  rev  #  into  dO.l 
bsr  get3 

*  multiply  by  the  number  of  blades 
move.w  d0,d5 

swap  dO 

*  now  start  rev  is  split  into  dO.w  :  d5.w 
mulu  n_b\ades,d0 

mulu  n~blades,d5 
swap  dO 


* 
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*  a5  ->  start  rev  data 


* 


1: 


* 


clr.w 
add.  I 

tines 

Ist.t 

lea 

add.  I 


dO 

d5,dO 
4  for  long 
#2,d0 
memory, a5 
35,  a5 


clr.w  dO 
ber  getl 

move.w  dO,rtd_n_blades 


clr.w  dO 

bsr  getl 

move.w  dO,rtd_n_revs 

move.b  IData_Out,Target_Co(irand 

move.w  rtd  n  blades, dl 
subq.w 

lea  offset_table,a2 

clr.w  dO 

bsr  getl 

sifcq.w»1,d0 

times  4  for  long  offset 

Isl.w  #2,d0 

move.w  d0,(a2)+ 

dbf  d1,1b 

move.b  #Data_ln,Target_Command 


move.w  rtd  n  revs,d2 
subq.w  #1,32“ 

2:  lea  offset_table,a2 

move.w  rtd  n  blades, dl 

subq.w  #1,31” 

3:  move.w  (a2)+,d0  *  get  offset 

lea  0(aS,d0.w),a0 

*  wait  until  data  is  available 

4:  cmpa.l  blade_d_ptr,aO 

*  bhs.s  4b 

bcc.s  4b 

moveq.l  #4,d0 
bsr  putn 

dbf  d1,3b 

adda.w  nbt4,aS  *  bump  pointer  to  next  rev's  data 

dbf  d2,2b 

clr.l  sense_data 

clr.b  dO 

rts 

.bss 


nbt4:  .*.+2 

offset  table:  .*.+MAXBLADES+KAXBUDES 

rtd_n_Blades:  .*.+2 

rtd~n~revs:  .*.+2 


4.16  recaiv.s 

* —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  - 

* 

*  receive 

*  if  byte  5  bit  7  *  1  then  reset  rcvjotr  to  start  of  memory 


* 
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SCSI*  Oxf *0300 


Target_Coanand*  SCSI+3+3+1 

Data_In*  1 

.globt  receive 

receive:bsr  getl 

tst.b  dO 

bne.s  3f 

bsr  get3 

move. I  dO,aO 

bsr  getl 

Isl.b  #1,d0 

bne.s  3f 

bcc.s  If 

move.  I  #__me*ory,rcv_ptr 

1:  move.  I  aO.dO 

beq.s  2f 

move.b  #Data_In>Target_Con«nand 

movea.l  rcv_ptr,aO 

bsr  putn 

move. I  aO,rcv_ptr 

2:  clr.l  dO 

move. I  dO,sense_data 
bra.s  4f 

3:  moveq.l  #2,d0 

move.  I  dO,sense_data 

4:  rts 

-bss 

rcv_ptr:.=.+4 

4.17  reques.s 


.globl  request_sense 
SCSI=  0xfe0300 

Target_Comnand=  SCSI+3+3+1 

Data_Out=  0 

request_sense: 

bsr  getl 
tst.b  dO 
bne.s  2f 

bsr  getl 
tst.b  dO 
bne.s  2f 

bsr  getl 
tst.b  dO 
bne.s  2f 

bsr  getl 
tst.b  dO 
bne.s  If 
move.b  #4,d0 
1:  clr.w  dl 

move.b  dO,d1 

bsr  getl 
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tst.b  dO 
bne.s  2f 


move.b  *Data_Out,Target_Commend 

lea  sense_data,aO 
moveq.l  ”#4,d0 
bar  putn 

clr.l  dO 

move.  I  dO,sense_data 
bra.s  3f 


2:  moveq.l  #2,d0 

move.  I  dO,sense_data 

3:  rts 

4.18  send. 8 


*  send 

• 

SCSI*  0xfe0300 

Target_Commend*  SCSI+3+3+1 

Data_Out*  0 

.globl  send 

serid:  bar  get! 
tst.b  dO 
bne.s  2f 

bar  get3 
move.  I  dO,aO 

bsr  getl 
tst.b  dO 
bne.s  2f 

move.  I  aO,dO 
beq.s  If 

move.b  8>ata_Out,Target_Command 


lea  _memory,aO 
bsr  getn 

1:  clr.l  dO 

move. I  dO,sense_data 
bra.s  3f 

2:  moveq.l  #2,d0 

move. I  dO(sense_data 

3:  rts 

4.19  setup. s 

* - - - - - — - — — - * 

*  setup  -  handle  scsi  setup  command  packet 


0:0=  command  byte 
1:1*  mpfcer  of  blades 
2:4*  number  of  revs 
5:5=  reserved 


MEHENO*  Qxlfffff 

gmsv04=  OxfffOOO 

port_2*  gmsv04+0x040 

port_3*  gmsv04+0x080 
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*  PIT  offset* 

pbcr=  7+7+1 
padr*  8+8+1 
pbdr=  9+9+1 
per*  13+13+1 

.globl  setup 

setup:  clr.u  dO 
bar  getl 
move.w  dO,n  blades 
bsr  get3" 
wove.  I  d0,n_revs 

bsr  getl 

lea  memory, aO 
move.  I  SC,blade_d_ptr 

move. I  n  revs.dO 
move.w  d&,d1 
swap  dO 

mulu  n  blades, dO 
swap  dC 
clr.w  dO 

mulu  n  blades, dl 

add.  I  dT,dO 

1*1.1  #2,d0 

add. I  dO,aO 

move.  I  aO,blade_d_end 

*  check  to  see  if  request  will  overflow  memory 
cmp.l  ME  HE  NO, aO 

bhi.s  8f 

*  Port  B  Submode  *  Submode  XO  (double  buffered  input) 

*  H4  asserted  (clear  data  available  ff) 
move.b  #0x28,port_2+pbcr 

*  clear  ports 

1:  btst  #2, port  3+psr 

beq  2f  ~ 
tst.b  port  3+pbdr 
bra.s  1b 

2:  btst  #2, port  2+psr 

beq  3f 

tst.b  port_2+padr 
tst.b  port_2+pbdr 
bra.s  2b 
3: 

*  Port  B  Submode  *  Submode  XO  (double  buffered  input) 

*  H4  Control  *  Output  pin  -  pulsed  input  handshake  protocol 

*  H4  Interrupt  Enable  *  The  H4  interrupt  is  disabled 

*  H3  SVCRQ  Enable  *  The  H3  interrupt  and  DMA  request  are  enabled 

*  H3  Status  Control  =  The  H3S  status  bit  is  set  anytime  input  data  is 

*  present  in  the  double-buffered  input  path, 
move.b  #0x3a,port_2+pbcr 

clr.l  sense  data 
clr.b  dO  “ 
bra.s  9f 

8:  move. I  #0x01 000000 .sense  data 

moveq.l  #0x02, dO 

9:  rts 


4.20  slave. s 


* 

*  slave 

* 

*  this  program  implements  the  slave  station 

* 
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VECTOR* 
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*  GMSV06  port  addresses 
SCSI*  0xfe0300 

Current_0ata*  SCSI +0+0+1 

Initiator  Contend*  SCSI+1+1+1 
Mode*  “  SCSI+2+2+1 

Target_Co«i*an>  SCSI+3+3+1 

Current_Bus_Status*  SCSI+4+4+1 

Command*  2 

Status*  3 

Message_In*  7 

COHMAND_CCMPLETE*  0 

SEL-*  1 

TARGET_M00E*  6 

.globl  slave 

slave: 

*  clear  memory  *  takes  about  1  second 

*  we  can't  do  this  in  a  subroutine  because  the  return  address  would 

*  be  cleared  also 

lea  0x000000, aO 
move.w  418-1, dl 
move.w  #65536-1, dO 
1:  clr.l  (a0)+ 

dbf  d0,1b 
dbf  dl , 1b 

*  setup  configuration  port 

bsr  v06_init 

*  setup  all  vectors  to  point  to  bed_exeeption  routine 

move.w  #256-1,d0 
lea  bad_exception,a0 
suba.l  al.al 
2:  move. I  a0,(a1)+ 

dbf  d0,2b 

*  set  interrupt  vector 

clr.l  dO 

move.b  #VECT0R,d0 

Isl.w  #2,d0 

move. I  d0,a0 

move. I  #blade_isr,(a0) 

move.b  #VECTOR,d0 
bsr  v04_init 

bset  #TARGET_M00E,Hode  *  set  target  mode  bit 
mtsr  #0x2000  *  set  interrupt  mask  to  0 

3:  move.b  id.dO 

4:  btst  #SEl-,Current_Bus_Status 

beq.s  4b 

cmp.b  Current  Oata.dO 

bne.s  4b 

move.b  #0x08, 1  nit  iator_Command  *  set  busy 
move.b  #Coemand(Target_Commend 
b6r  getl 

bsr  dispatch 
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move.b  #$tatue,Target_Comnand 
bar  putl 

move.b  #4eatege_!n,Target_Coninand 
move.b  #COHHAW)_COHPtETE,dO 
b6r  putl 

move.b  #OxOO,Target_Coomand  *  clear  HSG-,  C_D-  and  !  o~ 
move.b  #0x00,  Initiator_Comn»nd  *  clear  BSY- 

bra  3b 

•  b6S 

.globl  blade_d_end 
blade_d_end:  .*.+4 

~  Tglobl  blade_d _ptr 
blade_d_ptr:  .*.+4“ 

~  .globl  minmexjxiffer 

minmax_buffer:  .=.+560  *  MAX8LADES  *  4  *  2 

.globl  n_b lades 
n_blades:  .*.+2 

.globl  n  revs 

n_revs:  ~  .=.+4 

.globl  sense_data 
sense_data:  ,*.+4~ 

4.21  v04inl.s 

*— — — — — ___________ ——————————————————————————————————————————————— * 

*  v04_init 

*  call  Mith: 

*  dO.b  *  interrupt  vector 


*  GMSV04  port  base  address 

gmsv04=  OxfffOOO 

*  GMSV04  port  offsets 

port_1*  0x000 

port_2=  0x040 

port~3=  0x080 

confTg=  OxOcO 

debug=  0x100 
intsel=  0x140 


* 

PIT  offsets 

pgcr= 

0+0+1 

psrr= 

1+1+1 

paddr= 

2+2+1 

pbddr= 

3+3+1 

& 

”5 

II 

4+4+1 

pivr= 

5+5+1 

pacr= 

6+6+1 

pbcr= 

7+7+1 

padr= 

8+8+1 

pbdr= 

9+9+1 

paar= 

10+10+1 

pbar= 

11+11+1 

pcdr= 

12+12+1 

psr= 

13+13+1 

* 

68153  offsets 

cr_0= 

0+0+1 

cr_1  = 

1+1+1 

cr~2= 

2+2+1 

cr”3= 

3+3+1 

vrj)= 

4+4+1 

vr_1  = 

5+5+1 

vr_2* 

6+6+1 
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vr_3*  7+7+1 

.globl  v04_init 
v04_init: 


* 

« 

* 


* 


* 

* 


* 

* 


+ 


* 


* 

* 


* 


* 


* 


setup  ports  on  GMSV04  card 
lea  OxfffOOO.aO 

disable  H12  and  H34 
and.b  #0xcf,port_2+pgcr(a0) 

mode  1  (unidirectional  16-bit  mode) 

H34  disabled 
N12  disabled 

H4  pin  sense  -  negative  true 
H3  pin  sense  -  negative  true 
H2  pin  sense  -  negative  true 
HI  pin  sense  -  negative  true 
move.b  #0x40,port_2+pgcr(a0) 

enable  H34 

beet  #5,port_2+pgcr(a0) 

PC4  =  PC4 
PC5  *  PIRQ- 
PC6  *  PC6 

move.b  #0x08,port_2+psrr(a0> 

clr.b  port_2+pacr(a0) 

B  subeode  XO  -  double  buffered  input 
H4  asserted  (clear  data  avail  flip  flop) 
move.b  #0x26,port_2+pbcr(e0) 

make  buffer  control  lines  outputs 
ori.b  #0x93,po-t_2+pcddr(a0) 

and  make  A  input  +  B  input 
andi.b  #0x6c,port_2+pcdr(a0) 

disable  H12  and  H34 
andi.b  #0xcf ,port_3+pgcr(a0) 

mode  0  (unidirectional  8-bit  mode) 

H34  disabled 
H12  disabled 

H4  pin  sense  -  positive  true 
H3  pin  sense  •  negative  true 
H2  pin  sense  -  negative  true 
Hi  pin  sense  -  negative  true 
move.b  #0x08,port_3+pgcr(a0) 

enable  H34 

t*et  #5,port_3+pgcr(a0) 

clr.b  port_3+parr(a0) 
clr.b  port~3+pecr(a0) 

B  submode  00  -  double  buffered  input 

H4  Output  -  negated  (disable  remote  electronics) 

move.b  #0x20,port_3+pbcr(a0) 

make  buffer  control  lines  outputs 
ori.b  #0x93 , por t_3+pcddr ( sO ) 
and  make  A  input  ♦  I  input 
andi  .b  #0x6c,port_3+pcdr(a0) 

make  PC4  an  output 

ori.b  #0x10,debug+pcddr(a0) 

turn  off  fail  led 

andi  .b  #0xef ,debug+pcdr(aO) 

move.b  dO,  intsel+vr_0(a0) 

enable  interrupts  at  level  6 
move.b  #0x16, intsel+cr_0(a0) 
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rtf 

4*22  V06ini'S 


* 

* 

* 


v06_init 


*  GMSV06  port  addresses 
AmZ8536*OxfeOOOO 

.globl  v06_ioit 
v06_init: 

*  setup  configuration  port 

lea  AmZ8536,aO 
move.b  7(aO),dO 
nop 
nop 

move.b  #0,7(a0) 

nop 

nop 

move.b  7(a0)<d0 
move.w  #tablesize-1,d0 
lea  table, al 
2:  move.b  (a1)+,7(a0) 

dbf  d0,2b 

rts 


table:  .byte  0,1,0 

.byte  0x05,0x00 
.byte  0x06, OxOe 
.byte  0x07,0x00 
.byte  0x08,0x00 
.byte  0x09,0x00 
.byte  0x20,0x00 
.byte  0x21,0x00 
.byte  0x22,0x00 
.byte  0x23,0x08 
.byte  0x24,0x00 
.byte  0x28,0x00 
.byte  0x29,0x00 
.byte  0x2a,0x00 
.byte  0x2b,0xb0 
.byte  0x2c,0x00 
.byte  0x1e,0x95 
.byte  0x0d,0xee 


.byte  0x0e,0x47 


.byte  OxOf.Oxee 


.byte  0x01,0x94 


*  Port  C  Data  Path  Polarity 

*  Port  C  Data  Direction 

*  Port  C  Special  I/O  Control 

*  Port  A  Command  and  Status 

*  Port  B  Command  and  Status 

*  Port  A  Mode  Specification 

*  Port  A  Handshake  Specification 

*  Port  A  Data  Path  Polarity 

*  Port  A  Data  Direction 

*  Port  A  Special  I/O  Control 

*  Port  B  Mode  Specification 

*  Port  B  Handshake  Specification 

*  Port  B  Data  Path  Polarity 

*  Port  B  Oata  Direction 

*  Port  B  Special  I/O  Control 

*  Counter/Timer  3  Mode  Specification 


Port 

A  Data  PA7 

NMIEN*  = 

1 

PA6 

RAMCO  = 

1 

PA5 

MAPRO*  * 

1 

PA4 

WAIT0  = 

0 

PA3 

PR0M3  * 

1 

PA2 

PR0M2  = 

1 

PA1 

PR0M1  * 

1 

PA0 

PROMO  = 

0 

Port 

B  DataPB7 

HALT* 

= 

? 

PB6 

RESDIS* 

= 

1 

PB5 

RESERVED 

= 

? 

P84 

SYSFA1L* 

3 

? 

PB3 

FAIL 

= 

0 

P82 

RELES 

3 

1 

PB1 

BUSL1 

X 

1 

PB0 

BUSLO 

= 

1 

Port 

C  DataPC3 

CONTL 

= 

? 

PC2 

DS 

= 

? 

PCI 

CONTLR 

= 

? 

PCD 

TIMOUT 

= 

1 

« 


tablesite*  .-table 
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5.0  SIMULATOR  EPROM  LISTINGS 


0000 

01 

02 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0010 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0020 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0030 

00 

00 

00 

00 

00 

00 

oc 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0040 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0050 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0060 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0070 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0080 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0090 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00A0 

00 

00 

00 

00 

oo 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

OOCO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0100 

04 

08 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0110 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0120 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0130 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0140 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0150 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0160 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0170 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0180 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0190 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0180 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01D0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0200 

01 

02 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0210 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0220 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0230 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0240 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0250 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0260 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0270 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0280 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0290 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

02A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

02B0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

02C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0200 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

02E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

02F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0300 

04 

08 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0310 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0320 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0330 

oc 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0340 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0350 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0360 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

GO 

00 

0370 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0380 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0390 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

03A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0380 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

03C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

0300 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

03E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

03F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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0800 

01 

02 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0810 

00 

00 

00 

00 

00 

00 

00 

CO 

00 

00 

00 

00 

00 

00 

00  00 

0820 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0830 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0840 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0850 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0860 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0870 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0880 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0890 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

08A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

0880 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00  00 

08CO 

00 

00 

00 

00 

00 

00 
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1400  OS  OA  OE  OC  00  00  00  00  00  00  00  00  00  00  00  00 

1410  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1420  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1430  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1440  00  01  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1450  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1460  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1470  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1480  08  00  01  03  00  00  00  00  00  00  00  00  00  00  00  00 

1490  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

14A0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

14B0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  v 

14C0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1400  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

14E0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

14F0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  04  08 

1500  05  OA  08  00  00  00  00  80  00  00  00  00  00  00  00  00 

1510  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1520  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1530  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1540  02  04  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1550  oooooooooooooooooooooooooooooooo 

1560  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1570  00  00  00  00  00  00  00  00  00  00  00  00  00  00  01  02 

1580  00  00  06  00  00  00  00  00  00  00  00  00  00  00  00  00 

1590  oooooooooooooooooooooooooooooooo 

15  AO  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1580  oooooooooooooooooooooooooooooooo 

15C0  oooooooooooooooooooooooooooooooo 

15D0  oooooocooooooooooooooooooooooooo 

15E0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

15F0  00  00  00  00  00  00  00  00  00  00  OO  00  01  03  00  00 

1600  05  OA  01  03  00  00  00  00  00  00  00  00  00  00  00  00 

1610  00000000000000000000000000000000 

1620  oooooooooooooooooooooooooooooooo 

1630  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1640  08  00  00  00  00  00  00  00  00  00  oooooooooooo 

1650  oooooooooooooooooooooooooooooooo 

1660  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1670  00  00  00  00  00  00  00  00  00  00  00  00  00  00  04  08 

1680  00  01  08  00  00  00  00  00  00  00  00  00  00  00  00  00 

1690  00000000000000000000000000000000 

16A0  00000000000000000000000000000000 

1660  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

16C0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1600  00  00  OO  00  00  00  00  00  00  00  00  00  00  00  00  00 

16E0  00  00  00  00  00  00  00  00  00  00  OO  00  00  00  00  00 

16F0  00  00  00  00  00  00  00  00  00  00  00  00  06  OC  00  00 

1700  05  OA  07  OF  00  00  00  80  00  00  00  00  00  00  00  00 

1710  oooooooooooooooooooooooooooooooo 

1720  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1730  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1740  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1750  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1760  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1770  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  > 

1780  02  04  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1790  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

17A0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1780  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  A 

17C0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1700  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

17E0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

17F0  00  00  00  00  00  00  00  00  00  00  00  00  08  00  01  02 
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1800  05  08  OF  OF  00  00  00  00  00  00  00  00  00  00  00  00 
1810  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1820  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1830  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1840  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1850  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1860  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1870  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1880  08  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1890  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
18A0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1880  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
18C0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1800  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
I860  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
18F0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  04  08 
1900  07  OF  OF  OF  00  00  00  80  00  00  00  00  00  00  00  00 
1910  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1920  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1930  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1940  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1950  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1960  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1970  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1960  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1990  00000000000000000000  00  0000000000 

19  AO  oooooooooooooooooooooooooooooooo 

1980  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
19C0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1900  00000000000000000000000000000000 
1960  00000000000000000000000000000000 
19F0  00000000000000000000000000000000 
1A00  OF  06  0FOF  00  00  00  00  00  00  00  00  03  00  00  00 
1A10  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1A20  00000000000000000000000000000000 
1A30  000000000000000000000000  00  000000 
1A40  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1A50  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1A60  00000000000000000000  00  0000000000 
1A70  000000000000000000  00  000000000000 
1A80  00  01  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1A90  0000000000  00  0000000000  00  00  000000 
1AA0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1AB0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1AC0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1AD0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1AE0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1AF0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1800  00  OA  OF  OF  00  00  00  80  00  00  00  00  00  00  00  00 
1810  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1820  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1830  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1840  oooooooooooooooooooooooooooooooo 

1850  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
I860  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1870  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1880  02  04  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1890  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
18A0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1880  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1BC0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1800  OO  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
I860  OO  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1BF0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  01  02 
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1C00  OSOAOEOCOOOOOOOOOOOOOOOOOOOOOOOO 
1C10  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1C20  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1C30  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1C40  00  01  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1C50  ooooonoooooooooooooooooooooooooo 

1C60  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1C70  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1C80  08  00  01  03  00  00  00  00  00  00  00  00  00  00  00  00 
1C90  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

ICAO  oooooooooooooooooooooooooooooooo 

1C80  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1CC0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1COO  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1CE0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1CF0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  0408 
1000  05  0A  08  00  00  00  00  80  00  00  00  00  00  00  00  00 
1010  OOOOOOOOOOOCOOOOOOOOOOOOOQOOOOOO 
1020  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1030  oooooooooooooooooooooooooooooooo 

1040  02  04  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
10S0  00000000000000000000000000000000 
1060  00000000000000000000000000000000 
1070  0000000000000000000000000000  01  02 

1080  00  00  06  0c000000000000000000000000 

1090  0000  00  00000000000000000000000000 
1DA0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1080  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
10C0  00000000000000000000000000000000 

1000  oooooooooooooooooooooooooooooooo 

1DE0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1DF0  00  00  00  00  00  00  00  00  00  00  00  00  01  03  09  00 
1EOO  05  0A  01  03  00  00  00  00  00  00  00  00  00  00  00  00 
1610  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1E20  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1E30  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1E40  08  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1E50  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 

1E60  oooooooooooooooooooooooooooooooo 

1E70  00000000000000000000000000000406 
1E80  00  01  0800000000000000000000000000 
1E90  oooooooooooooooooooooooooooooooo 

1EA0  00  00  00  09  00  00  00  00  00  00  00  00  00  00  00  00 
1EB0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1EC0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  90 
1E00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1EE0  00000000000000000000000000000000 
1EF0  00  00  00  00  00  00  00  00  00  00  00  00  06  0c  00  00 
1F00  05  0A  07  0F  00  00  00  80  00  00  00  00  00  00  00  00 
1F10  00000000000000000000000000000000 
1F20  OOOOOOGOOOOOOOOOOOOOOOOOOOOOOOOO 
1F30  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1F40  00000000000000000000000000000000 

1F50  oooooooooooooooooooooooooooooooo 

1F60  00090000000000000000000000000000 
1F70  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  CO 
1F80  02  04  00  00  OO  00  00  00  00  00  00  00  00  00  00  00 
1F90  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1FA0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1F80  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1FC0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1F00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1FE0  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00  00 
1FF0  00  00  00  00  00  00  00  00  00  00  00  00  08  00  01  02 
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